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FOREWORD FROM DICK SMITH 


Here it is at last! The book that so many happy owners of our 
Wizzard home video entertainment computer have been waiting for, 
with a collection of fascinating and educational programs 
written in Wizzard's BASIC language. 


The Wizzard has been incredibly popular, particularly since we 
began selling the BASIC programming cartridge so that it can be 
used aS an easy-to-understand learning computer. I've had lots 
of letters from grateful kids and their parents, thanking us for 
the way in which their Wizzard has enabled them to gain a first 
hand knowledge and understanding of computers and the way in 
which they are programmed. 


Our book, Funway Into Computers using your Wizzard has generated 
a lot of interest and as a result, we've had many requests for a 
series of simple and straightforward sample programs in book 
form to give everyone a hand in writing their own programs. Once 
it was realised that there exists a need for this type of book, 
we approached Wayne Richmond, a primary school teacher who has 
written several top-selling educational type programs for us 
before. Would he be interested in writing some programs for the 
Wizzard? 


Well, he certainly was, and he did. This book is the result, and 
I think you'll agree that Wayne has done a fantastic job. He has 
produced a really fantastic set of programs for our first book, 
all of them designed to show you ‘how it's done'. There 

are entertaining games such as a Mastermind type of game, a 
Hangman, a maths drill program for improving your mathematical 
skills and even a Music generation program to turn you into a 
Mozart (well, almost!). Also provided are such programs as a 
digital clock so that you can get to work on time and a program 
that allows you to "doodle" on the T.V. Screen; and many more. 


Sqgme of the programs are long and some are short. But having 
seen them all working, I can assure you that they all work 
really well and are well worth the effort to 'key in'. Because 
we provide programs that are both educational as well as 
entertaining, you'll not only learn more about programming your 
Wizzard, but we genuinely believe that you will have a great 


deal of fun doing it! 
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WI2#a2ARD HANGMAN 


As the first program in our book, we thought it would be 
appropriate to give you the opportunity to ‘hang' yourself. 
Accordingly, we present the Wizzard version of the traditional 
‘Hangman' game. In our version, your '‘opponent' chooses a word: 
of up to 13 characters in length which he enters into the 
computer. It is then up to you to successfully guess the correct 
letter combination and hence the 'word' without allowing 
yourself to be hung. A unique feature of this game is the use of 
the joystick to select the required character. This game 
includes both graphics and music. 


FOR THE PROGRAMMER. 


As this book has been written with you, the programmer in mind, 
we thought it would be useful to present some of the 
"thow-it's-done' in this section, for each program in the book. 


In this program, LEN(WS) is used in line 290 to find the length 
of the INPUTed word. ; 

ASCII is used in lines 700-750 to plot the alphabet using ASCII 
codes. 

MIDS(WS,N,1) is used in lines 4000-4150 look for the letter in 
the given word. 

JOY(1) is the command used in lines 1000-1510 to examine the 
position of the Joysticks. 


10 REM *WIZZARD HANGMAN* 

15 REM (WRITTEN BY WAYNE G RICHMOND) 
18 REM (DECEMBER 1982) 

19 REM 

20 COLOR 0,16 

30 GOSUB 9000 

35  GOSUB 8000 

40 DIM L(20) 

50 Z= 31 

100. REM *INPUT WORD* 

110 GOSUB 9000 

120 L$ = Uo tea KKK KEKE KKKEKKEKKEKKKKEKEKKEN 
130 PRINT LS 

140 PRINT"*** | WIZZARD HANGMAN- ***" 
150 PRINT LS 


160 PRINT 

170 PRINT 

180 PRINT 

190 PRINT 

200 PRINT" TYPE IN A WORD" 
205 PRINT 

210 PRINT"AND PRESS <RET'ND>" 
213 PRINT 

215 PRINT 


PRINT 
PRINT"MAKE SURE THE PLAYER ISN'T" 
PRINT 
PRINT" LOOKING! !" 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT WS 
IF WS = "" THEN 100 
L = LEN(WS) 
IF L > 13 THEN 100 
GOSUB 9000 
DATA 87,73,90,90,65,82,68 
DATA 72,65,78,71,77,65,78 
DATA 85,83,69 
DATA 74,79,89,83,84,73,67,75,83 
DATA 76,72,32,84,79,32 
DATA 67,72,79,79,83 ,69 
DATA 82,72,32,84,79,32 
DATA 83,69,76,69,67,84 
DATA 40,77,79,86,69,32 
DATA 74,79,89,83,84,73,67,75,32 
DATA 70,79,82,32 
DATA 78,69,87,32 
DATA 71,65,77,69,41 
FOR Y = 2 TO 4 STEP 2 
FOR X = 6 TO 12 
READ D 
PLOT X,Y,D 
NEXT X 
NEXT Y 
FOR Y = 1 TO 5 STEP 4 
FOR X = 5 TO 13 
PLOT X,Y¥,42 


NEXT X 
NEXT Y 
FOR X = 5 T0O13 STEP 8 
FOR Y = 2 TO 4 
PLOT X,Y,42 
NEXT Y 
NEXT X 
FOR X = 3 TO 5 
READ D 
PLOT X,8,D 
NEXT 
FOR X = 3 TO ll 
READ D 
PLOT X,10,D 
NEXT 


FOR Y = 13 TO 15 STEP 2 
FOR X = 3 TO 14 
READ D 
PLOT X,Y,D 
NEXT X 
NEXT Y 
REM *PLOT ALPHABET* 


710 X= 4 
720 FOR N = 65 TO 90 


730 PLOT X,23,N 

735 SOUND X-3;0 

740 X=xX+1 

750 NEXT | 
800 REM *PLOT DASHES* 
810 xX = 4 

820 FOR N= 1 TOL 
830 PLOT X,20,1 

835 SOUND 2;0 

8 40 X=X+2 

850 NEXT 

1000 REM *MOVE POINTER* 
1010 x = 4 


1030 PLOT X,22,47 

1050 IF X < 5 THEN 1090 

1060 IF JOY(1) = 5 THEN 2000 
1080 IF X > 28 THEN 1500 
1090 IF JOY(1) = 1 THEN 3000 
1500 IF JOY(2) > O THEN 4000 
1510 GOTO 1050 

2000 REM *MOVE POINTER LEFT* 
2005 SOUND 2;0 

2010 PLOT X,22,32 

2020 X = X - l 

2030 PLOT X,22,47 

2040 GOTO 1500 

3000 REM *MOVE POINTER RIGHT* 
3005 SOUND 2;0 

3010 PLOT X,22,32 

3020 X = X + 1 

3030 PLOT X,22,47 

3040 GOTO 1500 

4000 REM *LOOK FOR LETTER* 
4005 SOUND 31;0 


4010 F = 0 

4030 J = X + 61 
4040 K = 99 | 
4050 FOR N = 1 TOL 


4060 IF L(N) = 99 THEN 4100 
4070 IF MIDS(WS,N,1) = CHRS(J) THEN GOSUB 5000 


4110 IF K = 99 THEN 6000 
4120 IF C = L THEN 7010 
4130 F = 0 


4150 GOTO 1030 
5000 REM *MOVE LETTER INTO POSITION* 


5005 K = 0 

5010 Q = P 

5015 C= C +1 
5020 O = X 

5030 P=2+N* 2 


5040 IF F = 99 THEN 5090 
5050 PLOT X,22,J 
5055 PLOT X,23,32 
5060 PLOT X,21,J 
5070 PLOT X,22,47 


5080 GOTO 5100 

5090 X = Q 

5100 IF X = P THEN 5400 
5110 IF X < P THEN 5200 
5120 IF X > P THEN 5300 
5200 REM *MOVE LETTER RIGHT* 
5210 FOR M = X TO P 

5220 PLOT M,21,J 

5230 PLOT M-1,21,32 

5240 NEXT 

5250 GOTO 5400 

5300 REM *MOVE LETTER LEFT* 
5310 FOR M = X TO P STEP -1l 
5320 PLOT M,21,J 

5330 PLOT M+1,21,32 

5340 NEXT 

5350 GOTO 5400 

5400 REM *MOVE LETTER UP* 
5410 PLOT P,20,J 

5420 PLOT P,21,32 

5425 SOUND 2;0,21;0,26;0 
5430 F = 99 

5440 L(N) = 99 

5450 X = O 

5460 RETURN 

5600 GOSUB 5700 

5610 Vv = 4 

5620 FOR N = 1 TO L 

5630 W = ASC(MIDS (WS ,N,1) ) 
5640 PLOT V,20,W 

5645 V=zV+ 2 


5650 NEXT 

5660 GOTO 7010 

5700 SOUND 2;4,5;4,14;4 
5710 SOUND 2;3,5;3,14;3 
5720 SOUND 2;1,5;1,14;1 
5730 SOUND 2;4,53;4,14;4 
5740 SOUND 2;3,9;3,17;3 
5750 SOUND 2;1,7;1,16;1 
5752 SOUND 2;3,7;3,16;3 
5754 SOUND 2;1,5;1,14;1 
5760 SOUND 2;3,5;3,14;3 
5770 SOUND 2;1,4;1,12;1 
5780 SOUND 2;7,5;7,14;7 


5790 RETURN 

6000 REM *DRAW BODY* 
6002 Z= Z- 2 

6005 SOUND 2Z;6,2-6;6 
6010 W= WH l 


6020 IF W = 1 THEN 6210 
6030 IF W = 2 THEN 6260 
6040 IF W = 3 THEN 6300 
6050 IF W = 4 THEN 6322 
6060 IF W = 5 THEN 6340 
6070 IF W = 6 THEN 6430 
6080 IF W = 7 THEN 6490 
6090 IF W = 8 THEN 6540 
6100 IF W = 9 THEN 6580 


PLO 
NEXT 
GOTO 
FOR Y 

PLO 
NEXT 
GOTO 
FOR V 

PLO 
NEXT 
GOTO 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
GOTO 
PLOT 
N= 1 
FOR Y 


T V,18,N 


4130 


= 17 TO 2 STEP -1 


T 16,Y,99 


4130 
= 17 TO 24 
T V,2,99 


4130 
17,5,104 
17,4,103 
18,4,104 
18,3,103 
19,3,104 
23,2,248 
4130 
23,3,43 
ll 

= 4 TO 6 


FOR V = 22 TO 24 


N 

P 

NEX 
NEXT 
PLOT 
GOTO 
FOR Y 


= N+ 1 
LOT V,Y,N 
TV 
Y 
23,7,200 
4130 

= 8 TO ll 


FOR V = 22 TO 24 


P 
NEX 


LOT V,Y,128 
T V 


NEXT Y 


GOTO 
FOR Y 

PLO 
NEXT 


‘PLOT 


PLOT 
GOTO 
PLOT 
FOR Y 
PLO 
NEXT 
PLOT 
GOTO 
FOR Y 
PLO 
NEXT 
PLOT 
GOTO 
FOR Y 
PLO 
NEXT 


4130 
= 6 TO 8 
T 19,Y,136 


20,8,128 
21,8,128 
4130 

25 ,8,128 

= 8 TO 10 
T 26,Y,136 


27,110,128 
4130 

= 12 TO 16 
T 22,Y,128 


21,16,136 
4130 

= 12 TO 16 
T 24,Y,128 


6660 PLOT 25,16,136 

6670 GOTO 5600 

7010 GOSUB 8509 

7015 PLOT xX,22,32 

7020 FOR X = 3 TO 30 

7030 READ D 

7040 PLOT X,23,D 

7050 NEXT 

7060 IF JOY(1) > 0 THEN RUN 
7070 IF JOY(2) > 0 THEN RUN 
7080 GOTO 7060 

7999 GOTO7999 

8000 REM *ESTABLISH CHARACTERS* 
8010 CHAR 47,18181818FF7E3C18 
8020 CHAR 1,000000000000FFFF 
8030 CHAR 96,0000000000031FFF 
8040 CHAR 97,0000010F7FFFFFFF 
8050 CHAR 98,073FFFFFFFFFFFFF 
8060 CHAR 99,FFFFFFFFFFFFFFFF 
8070 CHAR 100,EOFCFFFFFFFFFFFF 
8080 CHAR 101,000080FOFEFFFFFF 
8090 CHAR 102,0000000000COF8FF 
8100 CHAR 103,0103070F1F3F7FFF 
8110 CHAR 104,FFFEFCF8FOE0CO8 
8130 CHAR 112,8947289060408E9A 
8140 CHAR 113,FC0300382C2AA191 
8150 CHAR 114,2849915122943804 
8160 CHAR 115,B6A0A8A79080808 
8170 CHAR 116,8E80978F1C1A98 
8180 CHAR 117,02010101010171F1 
8190 CHAR 118,4020201010080403 
8200 CHAR 119,01820404840COOFF 
8210 CHAR 120,F9F9FA72220C708 
8220 CHAR 200,7E3C7E3C7E3C7EFF 
8230 CHAR 43,7A30307830307830 
8250 CHAR 248,E7E7E7E7E7E7E7E7 
8260 CHAR 128,FFFFOOOOFFFF 
8270 CHAR 136 ,cCccCcccccccccecce 
8280 CHAR 144,FFFFFFFFFFFFFFFF 
8300 RETURN 

8500 REM *WINNING TUNE* 

8510 SOUND 26;3 

8520 SOUND 21;2 

8530 SOUND 21;1 

8540 SOUND 23;3 

8550 SOUND 21;3 

8560 SOUND 1;3 

8570 SOUND 9;3,19;3,25;3 

8580 SOUND 2;3,18;3,26;3 

8590 RETURN 

9000 REM *SET COLOURS* 

9010 CLS 

9020 FOR N= 5 TO 18 

9030 COLOR N,2,16 

9040 NEXT 

9045 COLOR 6,7,/1 

9050 G = ll 

9060 COLOR 13,Grl 


9070 COLOR 14,G,1 

9080 COLOR 32,G,7 

9090 COLOR 17,14,11 

9100 COLOR 18,14,11 

9120 COLOR 26,7,/1 

9300 RETURN 

9500 REM *NEW GAME?* 

9510 PLOT xX,22,32 

9520 FOR X = 3 TO 30 

9530 READ D 

9540 PLOT X,23,D 

9550 NEXT 

9560 IF JOY(1) > 0 THEN RUN 
9570 IF JOY(2) > 0 THEN RUN 
9580 GOTO 9560 


ROWE'S S RELAXATION THERAPY 


When you're all tensed up, a good way to relax and unwind is to 
watch a goldfish in a tank. But a real goldfish has to be fed 
and looked after - so here's a program that lets your Wizzard 
provide a modern, high technology equivalent. The inspiration 
for this program came from our Technical Director, Jim Rowe. 


FOR THE PROGRAMMER 


Note in this program how memory was saved by using data stored 
in lines 20-50 three times (using RESTORE - Lines 1160 & 1460) 
for the rest of the background decoration. 


10 REM *ROWE'S RELAXATION THERAPY* 

12 REM (WRITTEN BY WAYNE G. RICHMOND) 

14 REM (DECEMBER 1982) 

20 DATA 24,25,26,32,27,28,29,30,32,31,32,40 

25 DATA 41,42,43,44,45,32,234,32,47,32,48,49 

30 DATA 32,50,32,51,32,40,52,53 ,54,32,/55,32 

35 DATA 56,44,57,58,32,59,60,61 ,62 ,63,233,232 

40 DATA 107,105,106,109,105,104,108,109,104,105,106 
45 DATA 109,105,109,108,104,109,105,104,105,106,109 
50 DATA 105,106,106,106,104,105 

60 GOSUB 500 


70 F= 7 
80 T = 12 
90 B= 8 


100 COLOR 0,B 
105 GOSUB 600 

110 GOSUB 8000 
115 GOSUB 1000 
117 GOSUB 8800 
120 GOSUB 2000 
125 GOSUB 4000 
130 GOSUB 3000 
135 GOSUB 4000 
140 GOTO 120 


500 CLS 

510 PRINT"TYPE YOUR FIRST NAME" 
520 PRINT 

530 INPUT NS 

540 IF NS = "" THEN 500 

550 RETURN 

600 PRINT" "eNS;" D. FISH" 
610 FOR N = 9 TO 12 

620 COLOR N,l,l 
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NEXT 

FOR N = 1 TO 22 
PRINT 

NEXT 

RETURN 


REM *DRAW PERIPHERALS* 


FOR Y = 1 TO 24 
FOR X = 3 TO 4 
READ C 
PLOT X,Y,C 
NEXT X 
NEXT Y 
RESTORE 
FOR Y = 16 TO 23 
FOR X = 23 TO 24 
READ C 
PLOT X,Y,C 
NEXT X 
NEXT Y 
FOR Y = 19 TO 23 
FOR X = 8 TO 9 
READ C 
PLOT X,Y,C 
NEXT X 
NEXT Y 
FOR Y = 13 TO 23 
FOR X = 28 TO 29 
READ C 
PLOT X,Y,C 
NEXT X 
NEXT Y 
RESTORE 
FOR Y = 12 TO 23 
FOR X = 6 TO 7 
READ C 
PLOT X,Y,C 
NEXT X 
NEXT Y 
FOR Y = 16 TO 23 
FOR X = 26 TO 27 
READ C 
PLOT X,Y,C 
NEXT X 
NEXT Y 
FOR Y = 20 TO 23 
FOR X = 18 TO 19 
READ C 
PLOT X,Y,C 
NEXT X 
NEXT Y 
FOR X = 3 TO 30 
READ C 
PLOT X,24,C 
NEXT 
RETURN 
REM *RIGHT PROFILE* 
B = 10 


FOR X = 11 TO 10 STEP -1 


FOR Y = B TO Btl 
PLOT X,Y,32 


NEXT y 
NEXT X 
FOR A = 5 TO 24 
GOSUB 7000 
NEXT 


PLOT A-1,B,32 

PLOT A-1,B+1,32 

A = 27 

RETURN 

REM *LEFT PROFILE* 

FOR X = 25 TO 26 
FOR Y = B TO Btl 

PLOT X,Y,32 

NEXT Y 

NEXT X 


FOR A = 27 TO 8 STEP -1l 


GOSUB 7500 

NEXT 

A = 8 

RETURN 

REM *FULL FRONTAL* 

C = 127 

FOR Y = 10 TO 11 
FOR X = A TO Atl 


C=C+#il 
PLOT X,Y,C 
NEXT X 
NEXT Y 


FOR N = 1 TO 120 
NEXT 


RETURN 
REM *MOVE RIGHT* 
C= 1 
FOR X = At4 TO A STEP -1l 
FOR Y = B TO Btl 
C=C+#+#1 
PLOT X,Y,C 
NEXT Y 
NEXT X 


PLOT A-1,B,32 
PLOT A-1,B+1,32 
RETURN 

REM *MOVE LEFT* 
C = 113 

FOR X = A TO At4 


FOR Y = B TO B + 1 


C=C+1 
PLOT X,Y,C 
NEXT Y 
NEXT X 


PLOT A+5,B,32 
PLOT A+5,Btl,32 
RETURN 


10 


8000 
8010 
8020 
8030 
8040 
8050 
8060 


REM *ESTABLISH CHARACTERS* 


CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 


2 ,80F0987CFECECFFD 

3 ,FFFFDEEEFOF8F 
4,073FFFFFFFFFFFFF 

5 ,FFFFFFFF7F1F3CE 

6 ,O080COC3EFFF3FFF 

7 ,3F7FDF93A0201008 

8 ,0E1F2301081C3E7F 

9 ,70C08001030408 
24,0000000001070F1F 
25 ,002040C0C08080 
26, 3F7E7E7E7E7E7E7E 
27,3F3F3F3F1F1F1F1F 
28 ,0000000080808080 
29 ,0F070301 

30 ,80COEOFOF87C7C7C 
31,3E1E1LE1E1EQEOEOE 
40 ,OELELE3C3C7C7CF8 
41,0001010303070706 
42,F8FOEOCOC080 

43 ,0604040603030101 
44 ,0000000000808080 
45,010103070F1F1F1F 
234,1F1FIF1F1F3F3E3E 
47,7CF87C7C7C3E1LEOF 
48 ,070303010101 

49 ,0000000000008080 
50 ,808080C0C0C04040 
51,404060607038381C 
52,000103030707070F 
53,FOEOCOCOC08080 
54,0FOFIF3F3F7F7F7E 
55,7E7E7E7E7E7E3F3F 
56 ,3F3F1F1F1FOFO707 
57,030101 

58 ,80C0C0C0C0603018 
59,3C1LE1LF1E3E7C7878 
60 ,0000000103030707 
61,70E0EOCOCOCOCOCO 
62,070FOF1LF3E7EFF7F 
63,8080 
233,3F1FOFO7070F1F3E 
232,00808080 
104,387EFFFFFFFFFFFF 
105,020F1FFFFFFFFFFF 
106 ,C2FFFFFFFFFFFFFF 
107, ECFEFFFFFFFFFFFF 
108,0C1LE3FFFFFFFFFFF 
109 ,0080C3 EFFFFFFFFF 
114,010F193E7F73F3BF 
115,FFFF7B770F1FOF 
116, EOFCFFFFFFFFFFFF 
117,FFFFFFFFFEF83CO07 
118,000103C3F7FFFCFF 
119 ,FCFEFBC90504081 
120 ,70F8C48010387CFE 
121,0E030180C0201 
128,0F1F337DF3E1E577 


ll - 


8650 CHAR 129,70787CCE87A7EF7E 
8660 CHAR 130,7F7C39B9593C0703 
8670 CHAR 131,7E3E9C9D9A3CF8C 
8700 COLOR 1,F,1 

8710 COLOR 2,T,1l 

8720 COLOR 15,F,1 

8730 COLOR 16,T,l 

8750 FOR N = 4 TO 8 

8760 COLOR N,13,1 

8770 NEXT 

8775 COLOR 30,13,1 

8780 COLOR 14,2,1 

8790 COLOR 17,F,1 

8795 RETURN 

8800 FOR N = 9 TO 12 

8810 COLOR N,2,1 

8820 NEXT 

8830 RETURN 
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WI2Z2#2ZaARD SK ETCH 


Here is a program that allows you to use the joysticks to 
sketch simple drawings to your T.V. screen. To draw once the 
program is entered, simply 'move' the Left Hand Joystick 
controller in any of its 8 main positions to create a drawing 
of your choosing. The Right Hand Joystick is used to erase 
those areas of the drawing that you wish removed. 


FOR THE PROGRAMMER 


This program makes full use of the 8 main positions available 
through the Joystick controller. The ‘Main Junction' routine at 
line 1000 checks to see if either joystick is being pressed. Tf 
JOY(1), the left-hand joystick is being pressed, the program is 
directed to the routine at line 2000 which examines the actual 
value of JOY(1) and in turn sends the program to the correct 
place. 


It can speed up a BASIC program to place often used sub-routines 
near the beginning of the program with low line numbers. Thus 
the positioning of the routines to increment the PLOT 
co-ordinates at lines 20-54. 


10 REM *WIZZARD SKETCH* 

12 REM (WRITTEN BY WAYNE G. RICHMOND) 
13 REM (DECEMBER 1982) 

14 GOSUB 9000 

16 X = 3 

17 Y = 24 

18 GOTO 100 | 
19 REM * INCREMENT PLOT CO-ORDINATES* 
20 X=X+1 

22 IFX> 30 THENX=30 

24 RETURN 

30 X=X-1 

32 IFX< 3 THENX=3 

34 RETURN 

40 Y=Y+1l 

42 IFY> 24THENY= 24 

44 RETURN 

50 Y=Y-1 

52 IFY<1THENY=1 

54 RETURN 

100 REM * INSTRUCTIONS* 

110 PRINT LS 


120 PRINT"WI22ARD S K E T C H" 
130 PRINT LS 

135 PRINT 

140 PRINT 


145 PRINT 

150 PRINT"* USE LEFT JOYSTICK TO DRAW" 
155 PRINT 

160 PRINT 

165 PRINT 

170 PRINT"* USE RIGHT JOYSTICK TO" 

180 PRINT 


190 PRINT" ERASE & MOVE CURSOR" 
195 PRINT 
200 PRINT 
210 PRINT 


220 PRINT"* ";QS;"CNT'L C";QS;" TO END" 
230 PRINT 


240 PRINT 
250 PRINT 
260 PRINT 
270 PRINT 


300 PRINT" (MOVE JOYSTICK TO BEGIN)" 
320 IF JOY(1) > 0 THEN 500 

330 IF Joy(2) > 0 THFN 500 

340 GOTO 320 

500 GOSUB 9000 

1000 REM *MAIN JUNCTION* 

1010 PLOT x,Y,0 

1020 IF JOY(1) > 0 THEN 2010 

1030 IF JOY(2) > 0 THEN 3010 

1040 PLOT X,Y,32 

1050 IF JOY(1) > 0 THEN 2010 

1060 IF JOY(2) > 0 THEN 3010 

1070 GOTO 1010 

2000 REM *DRAW JUNCTION* 

2010 PLOT x,Y,0 
2020 IF Joy(1) 
2030 IF Joy(1) 
2040 IF Joy(1) 
2050 IF Joy(1) 
2060 IF Joy(1) 
2070 IF Joy(1) 
2080 IF JOY(1) 
2090 IF Joy(1) 
2095 GOTO 1010 
2100 REM *DRAW EAST* 

2110 GOSUB 20 

2120 RETURN 

2200 REM * DRAW NORTH EAST* 
2210 GOSUB 20 

2220 GOSUB 50 

2230 RETURN 

2300 REM *DRAW NORTH* 

2310 GOSUB 50 

2320 RETURN 

2400 REM *DRAW NORTH WEST* 
2410 GOSUB 30 

2420 GOSUB 50 

2430 RETURN 

2500 REM * DRAW WEST* 

2510 GOSUB 30 

2520 RETURN 


THEN GOSUB 2110 
THEN GOSUB 2210 
THEN GOSUB 2310 
THEN GOSUB 2410 
THEN GOSUB 2510 
THEN GOSUB 2610 
THEN GOSUB 2710 
THEN GOSUB 2810 


OIA VU PWN 


REM *DRAW SOUTH WEST* 


GOSUB 30 
GOSUB 40 
RETURN 


REM *DRAW SOUTH* 


GOSUB 40 
RETURN 


REM *DRAW SOUTH EAST* 


GOSUB 20 
GOSUB 40 
RETURN 


REM *MOVE CURSOR JUNCTION* 


ee 

ry 

qy 

O 

F< 

— 

N 

~~ 
noi wt tw tw wt ttt 
ONAN U & WDE 


GOTO 1010 
END 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


REM *SET UP COLOURS* 


CLS 
COLOR 0,16 


FOR N = 7 TO 12 


COLOR N,2,16 
NEXT 
COLOR 6,7,16 
COLOR 1,2,16 


CHAR 0,FFFFFFFFFFFFFFFF 


LS aj WARK KKKKEKKKEKKKKKKEKKKKKKEKKKRKKEaAN 


QS = CHRS(34) 
RETURN 





2510 
2610 
2710 
2810 
2110 
2210 
2310 
2410 
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WI2Z#a2aaARD MATH S QUIZ 


In this program, you will be given the chance to improve your 
mathematical prowess. Wizzard will quiz you on any number of 
questions and reward you with a funny face and an original 
musical composition with every correct answer. By the way, if 
you get the answer wrong, Wizzard can be quite rude! In fact, 
he may Simply choose not to accept your answer! You may choose 
addition, subtraction, multiplication and division at any of 
three levels of difficulty. We guarantee that this program will 
challenge the entire family. 


FOR THE PROGRAMMER 


Here, lines 8780-8795 are used to create the large 'signs' (+ & 
- etc.). A variable, SS=CHR$(24) etc. is used in the program to 
equate the required character to reproduce the created signs in 
the program. This allowed the use of a generalised question 
printing routine possible at line 5000. Similarly, an enlarged 
"‘equals' sign is stored using the variable Q$ and printed 
accordingly. Note that any created character can be be placed 
into a string variable in this manner and then 'printed', 
"concatenated' and otherwise manipulated as strings. 


1 REM *WIZZARD MATHS QUIZ* 

2 REM (WRITTEN/BY WAYNE G. RICHMOND) 
3 REM (NOVEMBER 1982) 

4 DIM S(15) 

5 DATA 1,2,4,6,9,11,14,16,18,21,23 ,26,28,30,32 
6 “CLS 

7 K = 16 

8 COLOR 0,K 

9 PRINT"SETTING UP..." 

10 FOR N = 1 TO 15 

20 READ S(N) 

30 NEXT 


35 IF RND(1) < 1 THEN I = 1 
40 GOSUB 8000 

80 REM *SET-UP ROUTINE* 

90 GOSUB 9000 

95 PRINT L$ 


100 PRINT"W IZZARD MATH S" 
105 PRINT LS 

107 PRINT 

110 PRINT 

115 PRINT 

118 PRINT 

120 PRINT"1. ADDITION" 

130 PRINT 

140 PRINT 
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150 
160 
170 
180 
190 
200 
210 
220 
225 
230 
235 
240 
300 
310 
320 
322 
324 
330 
340 
350 
360 
370 
380 
390 
400 


PRINT"2. SUBTRACTION" 


PRINT 
PRINT 
PRINT"3. MULTIPLICATION" 
PRINT 
PRINT 
PRINT"4. DIVISION" 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT"WHICH TYPE OF MATHS"; 
INPUT TS 
IF TS = "" THEN 80 
IF TS < "1" THEN 80 
IF TS > "4" THEN 80 
GOSUB 9000 
PRINT"1. EASY" 
PRINT 
PRINT 
PRINT 
PRINT"2. TOUGH" 
PRINT 
PRINT 
PRINT 
PRINT"3. IMPOSSIBLE" 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT" WHICH LEVEL"; 
INPUT X$ 
IF X$ = "" THEN 330 
IF x$ < "1" THEN 330 
IF xX$ > "3" THEN 330 
L = VAL(XS) 
GOSUB 9000 
PRINT"HOW MANY QUESTIONS"; 
INPUT Q 
GOSUB 9000 
FOR N = 13 TO 32 

X = RND(13) + 1+ *I 

COLOR N,X,K 
NEXT 
GOTO 5000 
REM *ADDITION* 
IF L = 1 THEN 1100 
IF L = 2 THEN 1200 
IF L = 3 THEN 1300 
A = RND(10) + I 
B = RND(10) + I 
GOTO 1500 
A = RND(21) + 10 
B = RND(21) + 10 
GOTO 1500 


A = RND(151) + 50 
B = RND(351) + 50 
GOTO 1500 
C=A+B 

S$ = CHRS(25) 
RETURN 

REM *SUBTRACTION* 
IF L = 1 THEN 2100 
IF L = 2 THEN 2200 
IF L = 3 THEN 2300 


A = RND(6) + 5 

B = RND(5) + 1 
GOTO 2500 

A = RND(11) + 20 
B = RND(11) + 10 
GOTO 2500 

A = RND(101) + 100 
B = RND(81) + 20 
GOTO 2500 
C=A-B 

SS = CHRS (26) 
RETURN 


REM *MULTIPLICATION* 


IF L = 1 THEN 3100 
IF L = 2 THEN 3200 
IF L = 3 THEN 3300 


A = RND(10) + 1 
B = RND(10) + 1 
GOTO 3500 

A = RND(10) + 1 
B = RND(11) + 10 
GOTO 3500 

A = RND(1l1) + 10 
B = RND(81) + 20 
GOTO 3500 

C= A* B 

S$ = CHRS (27) 
RETURN 

REM *DIVISION* 


IF L = 1 THEN 4100 
IF L = 2 THEN 4200 
IF L = 3 THEN 4300 


B = RND(10) + I 
C = RND(10) + I 
GOTO 4500 

B = RND(10) + I 
C = RND(11) + 10 
GOTO 4500 

B = RND(11) + 10 
C = RND(81) + 20 
GOTO 4500 
A=B* C 

S$ = CHRS (24) 
RETURN 


REM *PRESENT QUESTION* 


FOR U = 1 TO Q 
GOSUB 5500 
PRINT 


PRINT" ("sU;") "sas" "-ess;" ".Be" 
INPUT H 
IF H = C THEN GOSUB 6000 
IF H <> C THEN GOSUB 7000 
IF H <> C THEN 5045 
NEXT 
PRINT 
PRINT LS 
PRINT"* PRESS JOYSTICK TO RE-RUN *" 
PRINT LS 
IF JOY(1) > O THEN 80 
IF JOY(2) > O THEN 80 


GOTO 5240 

IF TS = "1" THEN GOSUB 1000 
IF TS = "2" THEN GOSUB 2000 
IF TS = "3" THEN GOSUB 3000 
IF T$ = "4" THEN GOSUB 4000 
RETURN 


REM *CORRECT ROUTINE* 

N = RND(20) + I 

PLOT 26,23,88 + N * 8 

R= R+1 

SOUND 2;0,9;0,26;0 
= ] TO RND(15) + I 
0 


Z = RND(14) + 1 
SOUND S(Z);D 
NEXT 
SOUND 2;0,9;0,14;0 
SOUND 2;0,9;0,14;0 
RETURN 
REM *WRONG ROUTINE* 
SOUND 2;7,8;7,/14;7 
RETURN 
REM *ESTABLISH CHARACTERS* 
FOR N = 96 TO 248 STEP 8 
CHAR N,6666001881C32418 
NEXT 
CHAR 28,00FFFFOOOOFFFF 
QS=CHRS (28) 
CHAR 24,181800FFFF001818 
CHAR 27,C3E77E3C3C7EE7C3 
CHAR 25,181818FFFF181818 
CHAR 26,000000FFFF 


LS = NHK KKEKEKEEKEKEKKKKEKEKKKKKKKEKEKKKKEN 


RETURN 

REM *SET COLORS* 

CLS 

FOR N = 7 TO 15 
COLOR N.2,K 

NEXT 

COLOR 6,7,K 

COLOR 4,7,K 

RETURN 


"sQS;" 


WI24a24aARD NUMBER GUESS EP 


In this program, Wizzard thinks of a number and your job is to 
guess that number. When you have entered your guess, Wizzard 
will inform you as to whether your guess is 'TOO LOW' or ‘TOO 
HIGH'. You also will be given the opportunity to set the upper 
limit for the number to be guessed. How many tries will it take 
you to 'get it right'? 


FOR THE PROGRAMMER 


This type of program is an excellent ‘learning' program for a 
beginner and is the sort of program that you should have a go 
at writing for yourself. We have deliberately kept the program 
simple so that you can add to it as you wish. 


Note how the GOSUB is used in line 50 to ‘set up' some up the 
codes for the program. Also note how the row of asterisks 
created at line 8020 is stored in the string variable LS. When 
the asterisks are needed, all you do is PRINT LS. We have used 
a Similar method to store the quotation marks used in line 8030 
(ASCII code 34) in variable QS as used in line 1160. 


10 REM *WIZZARD NUMBER GUESSER* 

20 REM (WRITTEN BY WAYNE G. RICHMOND) 
30 REM (DECEMBER 1982) 

50 GOSUB 8000 

60 IF RND(1l) < 1 THEN I = 1 

1000 REM *INSTRUCTIONS* 

1010 PRINT LS 

1020 PRINT"* WIZZARD NUMBER GUESSER *" 
1030 PRINT LS 

1040 PRINT 

1045 PRINT 

1050 PRINT"YOUR WIZZARD WILL THINK OF A" 
1060 PRINT 

1070 PRINT"NUMBER AND YOU HAVE TO TRY" 
1080 PRINT 

1090 PRINT"TO GUESS IT." 

1100 PRINT 

1110 PRINT 

1120 PRINT"YOU WILL BE TOLD IF YOUR" 
1130 PRINT 

1140 PRINT"GUESS IS" 

1150 PRINT 

1160 PRINTQS;"TOO LOW";QS;" OR ";QS;"TOO HIGH";QS:"." 
1170 PRINT 

1175 PRINT 

1180 PRINT LS 

1190 PRINT 

1200 PRINT"HOW HIGH CAN THE NUMBER BE" 
1210 PRINT 

1220 INPUT L 

1230 GOSUB 9000 


1240 X = RND(L) + I 

2000 REM *INPUT GUESSES* 

2010 K=K+1 

2100 PRINT"GUESS #";K; 

2110 INPUT G 

2120 IF G = X THEN 3000 

2130 IF G < X THEN 4000 

2140 IF G > X THEN 5000 

3000 REM *GUESS CORRECT* 

3005 PRINT 

3010 PRINT"CONGRATULATIONS! !" 
3015 PRINT 

3020 PRINTG;" IS THE CORRECT ANSWER" 
3030 PRINT 

3040 PRINT"AND IT ONLY TOOK YOU" 
3050 PRINT 

3055 IF K = 1 THEN 3070 

3060 PRINT K;" GUESSES! (RANGE: 1-";L;")" 
3065 GOTO 3080 

3070 PRINT K;" GUESS!! (RANGE: 1-";L;")" 
3080 SOUND 31;0 

3085 SOUND 26;0 

3090 SOUND 31;0 

3095 SOUND 26;0 

3100 SOUND 19;7,23;7,31;7 

3110 GOSUB 7000 

3120 RUN 

4000 REM *GUESS TOO LOW* 

4010 PRINT"TOO LOW" 

4020 PRINT 

4025 SOUND 2;5 

4030 GOTO 2000 

5000 REM *GUESS TOO HIGH* 

5010 PRINT"TOO HIGH" 

5020 PRINT 

5025 SOUND 31;5 

5030 GOTO 2000 

6999 END 

7000 REM *PRESS JOYSTICK ROUTINE* 
7010 PRINT 

7020 PRINT LS 

7030 PRINT"* MOVE JOYSTICK WHEN READY *" 
7040 PRINT LS 

7050 IF JOY(1) > O THEN RETURN 
7060 IF JOY(2) > O THEN RETURN 
7070 GOTO 7050 

8000 REM *SET UP* 

8005 COLOR 0,16 

8010 GOSUB 9000 

8020 LS = SOR Git Oi ikl 
8030 QS = CHRS (34) 

8040 RETURN 

9000 REM *CHANGE COLOURS* 

9010 CLS 

9020 FOR N = 7 TO 12 

9030 COLOR N,2,1 

9040 NEXT 

9050 COLOR 6,7,1 

9060 RETURN 
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WI2Z22Z2aARD LETTER GUES SER 


you will quickly perceive that this program is simply an 
adaption of the Wizzard Number Guesser. The difference here is 
that you have to guess a letter from the alphabet rather than a 
number. 


FOR THE PROGRAMMER 


As can be seen, it is often far quicker to ‘adapt' an existing 
program for a specific requirement rather than to completely 
rewrite a program. Wizzard Number Guesser was loaded into memory 
and we simply changed and added line numbers as needed to 
produce this program. 


10 REM *WIZZARD LETTER GUESSER* 

20 REM (WRITTEN BY WAYNE G. RICHMOND) 
30 REM (DECEMBER 1982) 

50 GOSUB 8000 

60 IF RND(1) < 1 THEN I = 1 

1000 REM * INSTRUCTIONS* 

1010 PRINT LS 

1020 PRINT"* WIZZARD LETTER GUESSER *" 
1030 PRINT LS 


1040 PRINT 

1050 PRINT” YOUR WIZZARD WILL THINK OF A" 
1060 PRINT 

1070 PRINT"LETTER AND YOU HAVE TO TRY" 
1080 PRINT 

1090 PRINT"TO GUESS IT." 

1100 PRINT 

1110 PRINT 

1120 PRINT" YOU WILL BE TOLD IF YOUR" 
1130 PRINT 

1140 PRINT"GUESS IS" 

1150 PRINT 

1160 PRINTQS;"TOO LOW";:Q9S;" OR "2QS;"TOO HIGH";QS 


1170 PRINT 

1200 PRINT" ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
1240 GOSUB 7000 

1250 GOSUB 9000 

1260 X = RND(26) + 64 + I 
2000 REM *INPUT GUESSES* 

2010 K= K+4l1 

2100 PRINT"GUESS #"3K; 

2110 INPUT GS 

2115 G = ASC(GS) 

2120 IF G = X THEN 3000 

2130 IF G < X THEN 4000 

2140 IF G > X THEN 5000 

3000 REM *GUESS CORRECT* 

3005 PRINT 

3010 PRINT"CONGRATULATIONS!!" 
3015 PRINT 
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3020 PRINT QS;GS;QS;" IS THE CORRECT ANSWER" 
3030 PRINT 

3040 PRINT"AND IT ONLY TOOK you" 
3050 PRINT 

3055 IF K = 1 THEN 3070 

3060 PRINT K;" GUESSES!" 

3065 GOTO 3080 

3070 PRINT K;" GUESS!!" 

3080 SOUND 31;0 

3085 SOUND 26;0 

3090 SOUND 31;0 

3095 SOUND 26;0 

3100 SOUND 19;7,23;7,31;7 

3110 GOSUB 7000 

3120 RUN 

4000 REM *GUESS TOO LOW 

4010 PRINT"TOO LOW" 

4020 PRINT 

4025 SOUND 2;5 

4030 GOTO 2000 

5000 REM *GUESS TOO HIGH* 

5010 PRINT"TOO HIGH" 

5020 PRINT 

5025 SOUND 31;5 

5030 GOTO 2000 

6999 END 

7000 REM *PRESS JOYSTICK ROUTINE* 
7010 PRINT 

7020 PRINT LS 

7030 PRINT"* MOVE JOYSTICK WHEN READY *" 
7040 PRINT LS 

7050 IF JOY(1) > O THEN RETURN 
7060 IF JOY(2) > O THEN RETURN 
7070 GOTO 7050 

8000 REM *SET UP* 

8005 COLOR 0,16 

8010 GOSUB 9000 

8020 L$ = WKEEKKKKKRKKKKRKRKKRKKK KKK EN 
8030 QS = CHRS(34) 

8040 RETURN 

9000 REM *CHANGE COLOURS* 

9010 CLS 

9020 FOR N = 7 TO 12 

9030 COLOR N,2,1 

9040 NEXT 

9050 COLOR 6,7,1 

9060 RETURN 


WI2Z@#Z2ZARD MIND 


This game is a computerised version of one of the world's most 
popular games, Mastermind. You are pitted against the amazing 
Wizzard...Can you win? 


The game is played using the same rules as for Mastermind. You 
have to choose from six colours by using the Left Hand Joystick 
to ‘rotate’ the selector to the required colour. Pressing the 
Right Hand Joystick will ‘select' the currently blinking colour 
and enter it to the 'board'. Note that you cannot use the same 
colour twice. 


For each colour correctly selected, you will be given a white 
marker while for each colour correctly selected AND placed in 
the right position, you will be given a black marker. From 
these 'clues' you will have to try to deduce the correct colour 
combination. Remember that you only have ten turns to do it in. 
If unsuccessful, the correct combination will be displayed at 
the top of the 'board' for you. Good luck! 


1 REM *WIZZARD MIND* 

2 REM (WRITTEN BY WAYNE G. RICHMOND) 
3 CLS 

4 GOTO 11 

5 M= ( (RND(7) +I+1) *2)-1 
6 O= (RND(3) +I) *2 

7 T=RND(6) +I 

9 PLOT M,0O,8*T+92 

10 RETURN 

11 H=2 

12 J=0 


13 IF RND(1) < 1 THEN I = 1 
14 DIM S(4) 

15 DIM G(4) 

16 DIM A(6) 

17 FOR N = 9 TO 12 

18 COLOR N,16,2 

19 NEXT N 

20 GOSUB 7000 

25 FOR Y = 2 TO 7 STEP 2 





‘26 SOUND 7;0,14;0,31;0 

27 FOR X = 3 TO 16 STEP 2 
30 T=RND(6) +I 

35 PLOT X,Y,8*T+92 

38 NEXT 

40 NEXT 


50 DATA 87,73,90,90 

52 DATA 65,82,68 

54 DATA 16,77,73,78,68 

58 DATA 100,32,82,69,68,32 
60 DATA 32,108,32,87,72,73 
62 DATA 84,69,32,116,32 

64 DATA 66,76,85,69,32 

66 DATA 124,32,71,82,69 


68 
70 
72 
74 
82 
84 
86 
88 
90 
92 
93 


100 
104 
105 
106 
108 
110 
120 
125 
130 
135 
140 
160 
165 
168 
170 
180 
185 
190 
195 
197 
199 
200 
210 
215 
220 
230 
240 
250 
260 
270 
300 
310 
320 
330 
340 
400 
410 


430 
440 


510 
520 


540 


DATA 69,78,32 
DATA 140,32,80,73,78 
DATA 75,32,132,32,89 
DATA 69,76,76,79,87 
DATA 80,82,69,83 ,83,32 
DATA 74,79,89,83 
DATA 84,73,67,75 
DATA 70,79,82,32 
DATA 82,69,80,76,65,89 
DATA 65,89 
GOSUB 6000 
GOSUB7500 
U=0 
G=0 
K=0 
R=R+2 
IF R = 22 THEN 9010 
GOSUB 300 
FOR N = 1 TO 6 

A(N) =0 
NEXT N 
GOSUB 200 
PLOT X,Y,Z 


IF JOY(1) > O THEN GOSUB 197 


IF JOY(2) > O THEN 900 
GOSUB 5 
PLOT X,Y,32 


IF JOY(1) > 0 THEN GOSUB 195 


IF JOY(2) > O THEN 900 
GOTO 140 

PLOT X,Y,2Z 

SOUND 12;0,14;0,18;0 
PLOT X,Y,2Z 

K=K+1 

IF K = 7 THEN K = l 

IF A(K)=9 THEN 200 


IF K = 1 THEN GOTO 300 
IF K = 2 THEN GOTO 400 
IF K = 3 THEN GOTO 500 
IF K = 4 THEN GOTO 600 
IF K = 5 THEN GOTO 700 
IF K = 6 THEN GOTO 800 
REM *BLINK RED* 

X=3 

Y=18 

Z=100 

RETURN 

REM *BLINK WHITE* 

X=10 

Y=18 

Z=108 

RETURN 


REM *BLINK GREEN* 
X=10 

Y=20 

Z=124 

RETURN 
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600 REM *BLINK YELLOW 


610 xX=10 
620 Y=22 
630 Z2=132 


640 RETURN 
700 REM *BLINK PINK* 


710 X=3 
720 Y=22 
730 Z=140 


740 RETURN 
800 REM *BLINK BLUE* 


810 X=3 
820 yY=20 
830 Z=116 


850 RETURN 

900 REM *DRAW KNOBS* 

905 PLOT X,Y,Z 

910 PLOT 19+U,2+R,Z 

915 SOUND 11;1,14;1,19;1 


920 U=U+2 
925 G=Gtl 
928 G(G)=Z 
929 A(K)=9 


930 IF JOY(2) >OTHENS 30 
940 GOSUB 200 
945 IF U = 8 THEN 1000 
950 GOTO 140 
1000 REM *EXAMINE GUESS* 


1020 B=0 

1030 W=0 

1040 FOR N = 1 TO 4 

1050 FOR X = 1 TO 4 

1060 IF G(N) =S(X) THEN GOSUB 1100 


1070 NEXT X 
1080 NEXT N 
1090 GOTO 1200 
1100 IF X = N THEN B = B +1 
1110 IF X <> N THEN W= WH 1 
1120 RETURN 
1200 REM *DRAW PEGS* 
1210 Xx=0 
1220 IF B= O THEN 1300 
1230 FOR N = 1 TO B 
1240 PLOT 27+X,2+R,150 
1245 SOUND 23;0,26;0,31;0 
1250 X=X+1 
1260 NEXT N 

= 4 THEN 9000 
1300 IF W = O THEN 100 
1310 FOR N= 1TOW 
1320 PLOT 27+X,2+R,158 
1325 SOUND 26;0 
1330 X=X+1l 
1340 NEXT N 
1350 GOTO100 
6000 REM *SELECT KNOBS* 
6005 DIM S(4) 


- 26 - 


6010 
6020 
6025 
6030 
6040 
6050 
6055 
6060 
6070 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
7000 
7010 
7020 
7030 
7050 
7060 
7070 
7080 


FOR N = 1 TO 4 
S=RND(6) +1 
Q=0 
FOR X = 1 TO 4 
IF S = S(X) THEN Q=99 
NEXT X 
IF Q = 99 THEN 6020 
S(N) =S 
NEXT N 
FOR N = 1 TO 4 
IF S(N)=1 THEN S(N) =100 
IF S(N)=2 THEN S(N)=108 
IF S(N)=3 THEN S(N)=124 
IF S(N)=4 THEN S(N) =132 
IF S(N)=5 THEN S(N) =140 
IF S(N)=6 THEN S(N) =116 
N 


RETURN 
REM *ESTABLISH COLOURED KNOBS* 
FOR N = 100 TO 140 STEP 8 
CHAR N,3C7EFFFFFFFF7E3C 
NEXT N 
COLOR 13,9,2 REM RED (100) 
COLOR 14,16,2 REM WHITE (108) 
COLOR 15,5,2 REM BLUE (116) 
COLOR 16,13,2 REM GREEN (124) 
COLOR 17,11,2 REM YELLOW (132) 
COLOR 18,14,2 REM PINK (140) 
REM *ESTABLISH B/W PEGS* 
FOR N = 150 TO 158 STEP 8 
CHAR N,003C1818181818 
NEXT N 
COLOR 19,2,13 
COLOR 20,16,13 
RETURN 
REM *DRAW BOARD* 
CHAR 16,1818181818181818 
CHAR 17,/000000FFFF 
CHAR 18,0000001F1F181818 
CHAR 19,000000F8F8181818 
CHAR 20,1818181F1F 
CHAR 21,181818F8F8 
CHAR 22,1818181F1F181818 
CHAR 23,181818F8F8181818 
CHAR 24,181818FFFF 
CHAR 25,000000FFFF181818 
CHAR 26,181818FFFF181818 
COLOR 3,10,2 
COLOR 4,10,2 
GOSUB 7785 
FOR Y = 1 TO 23 STEP 2 
FOR X = 19 TO 30 
PLOT X,Y,17 
NEXT X 
NEXT Y 
FOR N = 19 TO 25 
PLOT N,3,17 
NEXT N 


7700 
7710 
7720 
7725 
7730 
7735 
7738 
7740 
7742 
7745 
7750 
7760 
7770 
7780 
7782 
7783 
7784 
7785 
7786 
7787 
7788 
7790 
7792 
7800 
7810 
7820 
7830 
7840 
7850 
7900 
7940 
7950 
7960 
7970 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 


FOR N = 2 TO 22 
PLOT 16,N,16 
PLOT 31,N,16 
PLOT 26,N,16 
NEXT N 
FOR Y = 3 TO 21 STEP 2 
PLOT 26,Y,26 
PLOT 18,Y,22 
PLOT 31,Y,23 
NEXT Y 
PLOT 18,1,18 
PLOT 31,1,19 
PLOT 18,23,20 
PLOT 31,23,21 
PLOT 26,1,25 
PLOT 26,23,24 
GOTO 7900 
REM *DRAW GREEN STRIPES* 
V=R 
IF V = 0 THEN V = 20 
IF V > 20 THEN V = 20 
CHAR 120,FFFFFFFFFFFFFFFF 
CHAR 121,000000FFFFFFFFFF 
FOR Y = 4 TO V+2 STEP 2 
FOR X = 27 TO 30 
PLOT X,Y,120 
NEXT X 
NEXT Y 
RETURN 
REM *PRINT WIZZARD MIND* 
FOR X = 19 TO 30 
READ N 
PLOT X,2,N 
NEXT X 
REM* SELECTION* 
IF J = 99 THEN 8100 
FOR Y = 18 TO 22 STEP 2 
FOR X = 3 TO 17 
READ D 
PLOT X,Y,D 
NEXT 
NEXT 
J=99 
RETURN 
FOR N = 1 TO 45 
READ X 
NEXT 
RETURN 
REM *ARROW* 
COLOR 1,11,2 
CHAR 0,030F3FFFFF3FOF03 
CHAR 1,Q000000FFFF 
CHAR 2,03070EFEFEOE0703 
PLOT 27,2,0 
PLOT 28,2,1 
PLOT 29,2,1 
PLOT 30,2,2 
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8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
9000 
9005 
9006 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9115 
9120 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 
9310 
9320 
9330 
9340 
9350 
9360 


RETURN 
REM *REPLAY* 
FOR X = 3 TO 16 


READ N 
PLOT X,9,N 
NEXT 
FOR X = 3 TO 12 
READ N 
PLOT X,11,N 
NEXT 
RETURN 
REM *END* 
SOUND 23;7,26;7,313;7 
SOUND 7;7 
GOSUB 8200 
X=19 
FOR N = 1 TO 4 


PLOT X,2,S(N) 
IF N = 4 THEN 9080 
PLOT X+1,2,32, 
X=X+2 
NEXT 
GOSUB 8300 
IF JOY(1)>0 THEN 9200 
IF JOY(2)>0 THEN 9200 
GOSUB 5 
GOTO 9100 
REM *NEW GAME* 
FOR Y = 9 TO 11 STEP 2 
FOR X = 3 TO 17 
PLOT X,Y,32 
NEXT 
NEXT 
GOSUB 6000 
RESTORE 
GOSUB 7900 
FOR Y = 4 TO R+2 STEP 2 


FOR X = 19 TO 25 STEP 2 


PLOT X,Y,32 
NEXT 
NEXT 
GOSUB 7785 
R=0 
GOTO 100 
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TEST MARK ER 


This program is a good example of how Wizzard can be programmed 
to do tedious and repetitive tasks extremely accurately and 
incredibly fast! This particular program will mark and give 
results for up to 50 students. you simply enter the number of 
questions you require, the correct answers (numerical only) and 
the students results. When the last student's results have been 
entered, Wizzard will summarize the whole group's results 
including percentages and averages. 


FOR THE PROGRAMMER 


This program can easily be adapted to produce detailed printed 
listings of the results by simply adapting some of the PRINT 
statements to LPRINT. Note by using LEFTS(XS,1) in line 310, 
it doesn't matter whether the operator types in "N" or the full 
word "NO". This type of procedure helps to ‘idiot proof' your 
programs as such techniques make using the program virtually 
foolproof and will prevent accidental ‘drop-outs’. 


10 REM *TEST MARKER* 

20 REM (WRITTEN BY WAYNE G. RICHMOND) 
30 REM (NOVEMBER 1982) 

40 REM 

50 CLS 

80 GOSUB 4000 

100 REM * INPUT ANSWERS* 

110 GOSUB 9000 


120 S=0 

130 PRINT"TYPE IN THE CORRECT ANSWERS" 
135 PRINT 

140 PRINT" (NUMBERS ONLY) " 
150 PRINT 

160 FOR N=1TOQ 

170 PRINT"QUESTION #";N; 
180 INPUT A(N) 

(190 NEXT 

200 GOSUB 9000 

205 T= 0 


207 PRINT"* ANSWER CHECK *" 
208 PRINT 
210 FORN=1T0Q 


215 T= T+ 1 

220 PRINT "("sN3") "sA(N) 
230 IF T < 16 THEN 270 
240 GOSUB 8000 

250 GOSUB 9000 

260 T=0 

270 NEXT 


280 PRINT 


PRINT"ARE THESE ANSWERS CORRECT"; 
INPUT XS 
IF LEFTS(XS,1) = "N" THEN 100 
REM * INPUT STUDENT'S ANSWERS* 
GOSUB 9000 
C= 0 
W= 0 
S=S+1 
PRINT"TYPE ANSWERS FOR STUDENT #";S 
PRINT 
FOR N= 1T0O0Q 
PRINT"QUESTION #";N;" "> 
INPUT A 
IF A = A(N) THEN GOSUB 2000 
IF A <> A(N) THEN GOSUB 3000 
NEXT 
GOSUB 1000 
PRINT 
PRINT"ANY MORE STUDENTS (Y/N) "; 
INPUT XS 
IF LEFTS(X$,1) = "Y" THEN 410 
REM *GROUP AVERAGES* 
GOSUB 9000 
FOR N= 1T0S 
V=V+R(N,1) 
P= P+R(N,3) 
NEXT 
GOSUB 7000 
PRINT"G ROU P AVERAGE S" 
GOSUB 7000 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT"NO. OF STUDENTS: "eS 
PRINT 
PRINT"NO. OF QUESTIONS: We 
PRINT 
PRINT"GROUP AVERAGE: ". INT(V/S) 
PRINT 
PRINT"AVERAGE PERCENT: "SINT(P/S) :"%" 
PRINT | 
PRINT 
PRINT 
GOSUB 8000 
CLS 
RUN 
REM *INDIVIDUAL RESULTS* 
R(S,1) C 
R(S,2) W 
R(S,3) = INT(C*100/Q) 
GOSUB 9000 
GOSUB 7000 
PRINT"RESULTS FOR STUDENT #";S 
GOSUB 7000 
PRINT 
PRINT 
PRINT 


1113 PRINT"NO. OF QUESTIONS: "5 
1115 PRINT 


1120 PRINT"QUESTIONS CORRECT: "sR(S,1) 
1130 PRINT 

1140 PRINT"QUESTIONS WRONG: "*sR(S,2) 
1150 PRINT 

1160 PRINT" PERCENTAGE CORRECT: "sR(S,3) ;"3" 


1170 GOSUB 8500 

1300 RETURN 

2000 REM *CORRECT ROUTINE* 
2010 C=C+l 

2030 RETURN 

3000 REM *WRONG ROUTINE* 
3010 W=W+l1 

3030 RETURN 

4000 REM *SETTING UP* 
4010 GOSUB 9000 

4020 GOSUB 7000 


4030 PRINT" TEST MAR K E R" 
4040 GOSUB 7000 

4050 PRINT 

4055 PRINT 


4060 PRINT"THIS PROGRAM WILL MARK AND" 
4070 PRINT 

4080 PRINT"GIVE RESULTS FOR UP TO 50" 
4090 PRINT 

4100 PRINT"STUDENTS. ALL ANSWERS MUST" 
4110 PRINT 

4120 PRINT"BE NUMERIC." 

4130 GOSUB 8500 

4140 PRINT 

4150 PRINT 

4160 PRINT"HOW MANY QUESTIONS"; 

4170 INPUT Q 

4180 DIM A(Q) 

4190 DIM R(50,3) 

4200 RETURN 

7000 REM *LINE ROUTINE* 

7010 PRINT" &RRKRKKRREKEKKKKKEKKKEKEKEEKEKKKEKKKEE EEN 
7020 RETURN 

8000 REM *PAUSE ROUTINE* 

8010 PRINT 

8020 PRINT 

8025 GOSUB 7000 

8030 PRINT"MOVE JOYSTICK TO CONTINUE" 
8035 GOSUB 7000 

8040 IF JOY(1) > 0 THEN RETURN 

8050 IF JOY(2) > 0 THEN RETURN 

8060 GOTO 8040 

8500 REM *MOVE PRINTS UP* 

8510 FOR N = 1 TO 8 

8520 PRINT 

8530 NEXT 

8540 RETURN 

9000 REM *SET COLORS* 

9010 CLS 

9015 COLOR 0,15 

9020 FOR X = 5 TO 12 

9030 COLOR X,2,15 

9040 NEXT 

9050 COLOR 6,7,15 

99070 RETURN 


MUSIC BO X 


In this program, Wizzard indulges itself ina little 
nationalistic nostalgia. He will with great dexterity and 
skill, play four of Australia's best known tunes: 

Click Go The Shears 

The Pub With No Beer 


Advance Australia Fair 


Botany Bay 


10 REM *MUSIC BOX* 

20 REM (WRITTEN BY WAYNE G. RICHMOND) 
30 REM (DECEMBER 1982) 

40 COLOR 0,15 


100 CLS 

110 FORN = 9 TO 12 
120 COLOR N,2,15 
130 NEXT 

140 FOR N = 7 TO 8 
150 COLOR N,13,15 


160 COLOR 6,7,15 ‘ 
200 REM *MENU* 


210 PRINT" KkKkKKRKKKEKKKKKKKEKREEKRN 
220 PRINT" MUSIC BO x" 
230 PRINT" kkk kkkkk kk kee KERN 
240 PRINT 
250 PRINT 
260 PRINT 
270 #£=PRINT 
280 PRINT"1. CLICK GO THE SHEARS" 
290 PRINT 


300 PRINT 

310 PRINT"2. THE PUB WITH NO BEER" 
320 PRINT 

330 PRINT 

340 PRINT"3. ADVANCE AUSTRALIA FAIR" 
350 PRINT 

360 PRINT 

370 PRINT"4. BOTANY BAY" 

380 PRINT 

390 PRINT 

400 PRINT 

410 PRINT 

420 PRINT 

430 GOSUB 800 

440 PRINT"WHICH TUNE DO YOU WANT"; 
450 INPUT TS 


IF TS = "1" THEN 1000 
IF TS = "2" THEN 2000 
IF T$ = "3" THEN 3000 
IF TS = "4" THEN 4000 
GOTO 100 


REM *FANFARE* 


SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 


RETURN 


733/14;3,23;3 
773714353 ,23;3 
97;1,19;1,25;1 
973,19;3,25;3 


9;1,19;1,25;1 
14;3,18;3,26;3 
9;1,131,1;1 
1;1,13;1,1;1 
2;5 


REM *CLICK GO THE SHEARS* 


SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 


23;37933,1833 
1832 

16;0 

14;3 

18;2 

21;0 

2633 

2632 

2530 
773°14;3,23;3 
13;2 

11;0 
2337973721; 3 
21;2 

23;0 
23376;3,21;3 
18;2 

14;0 
4:3,8;3,16;3 
16;2 

18;0 
9;2,13;2,16;2 


NFM PRR ~IN NNN FNPF EN SO ~ 
WW) dwe UI OVwe — Dwe DV OC we wo we we 
e 


- 34 - 


SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
FOR N 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
NEXT 


23; 
21;1 


W UI ON Ul GW we we we we we MD UI WD © wo we we 
WR) GO we we we we we 


COV CH Gwe we we we we CE wre wo 


6;3,14;33 


NJ we we 


9;3;2,26;2 


W mw~e U1 OV Ose HS Or 
ND ft we we GU we we we 
ONw*w ONOer ON ONC 


DONE & Il PRM ~)NM NNN DEFH RMR RDP WD ~) OHM ON NN NN DN ~10 NNN DDN DNDN OD ~]) 
ONOs 


LJ U1 he we 


em™me SO WO 


273,7933,14;3 
7;2/113;2,26;2 
26;0 
2757975726 FD 
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GOTO 100 


REM *PUB WITH NO BEER* 


FOR N 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
NEXT 


= 1 TO 2 
28;3 
4;3;3,28;:3 
8;3,27;3 
11;3,30;3 
4;3,28;3 
8;4,23;4 
11;1,20;1 
6;3,18;3 
10;3,17;3 
13;3,18;3 
6;3,25;3 
10;3,1;3 
1;1,25;1 
1;1,25;1 
15;3,23;3 
18;3,27;3 
16;3,25;3 
15;5,23;5 
18;1,18;1 
18;1,18;1 
9;3,18;3 
11;3,20;3 
6;3,21;3 
4;5,20;5 
1;1,28;1 
1;1,28;1 
4;3,28;3 


a 


W 


Wa 
N 
~J 
W 


WwW 
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WH HW Were 
WwW 
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= 


W WW we 


W Owe ~e py we we pH! we 
Wh se 
W Us 


UU) we we 
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foe] 
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we we CO ~J] we we we we 


NOr DMF Ae ke Oh rF © 
a) GU) we we 


Ul © we 


eo me “MO 


2531 
153;3,23;3 
18;3,27;3 
16;3,25;3 
15;5,23;5 
18;1 

20;1 
13;3,21;3 
11;3,20;3 
9;3,18;3 


4;6,8;6,16;6 


GOTO 100 


REM *ADVANCE AUSTRALIA* 


SOUND 
SOUND 


9;3,21;3 
14;:3,26;3 


3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 


SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 


9;3,21;3 
6;3,18;3 
9:3,21;3 
143;4,26;4 
14;1,26;1 
14;3,26;3 
23372133,30;3 
733,213;3,28;3 
6;3,21;3,26;3 
433,21;3,25;3 


e 
v 


a 


= 


a 


= 
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NWW WWW WE 


Wr 


UC) sme we we we 
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21;3,26;3,30;3 
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3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3800 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 


SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 


19;3,23;3,28;3 
183;3,21;3,26;3 
16;3-19;3,25;3 
14;3,19;3,23;3 
13;3,16;3,21;3 
11;3,23;3,26;3 
93;4,14;4,30;4 
9;1,14;1,26;1 
9;4,13;4,28;4 
9;1,13;1,25;1 
2;7,/18;7,26;7 


GOTO 100 
REM *BOTANY BAY* 


FOR N 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 


= 1 TO 2 
17;1 

19;1 

5;3;3,21;3 
93;3,24;3 
12;3,24;3 
12;3,19;3 
16;3,22;3 
19;3,22;3 
53;1,21;1 
19;1 


LEN 


11733 
23 


AQ we we A) we 
WWre WWs 
Cd GW) we 
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LO OV DD Owe we 


CJ we mo we we 
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me we (DO ~) we we 
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4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 


SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
SOUND 
NEXT 


12;3,24:33 
12;3,19;3 
16;3,22;3 
12;3,21;3 
533,933,17;3 
233 


12; 
9;3 
576 


=e 0 


GOTO 100 
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WI2ZaZaARD MUSIC MACHINE 


With this highly innovative program, Wizzard makes it easy for 
you to write and perform your own tunes. Having written your 
tune, you can listen to it and see it displayed, re-write 
sections of it, add to the end of the tune, change individual 
notes and add the name of the composer. An added feature is the 
ability of the program to print out the tune on paper for future 
reference. While we won't guarantee to turn you into a Mozart, 
it will provide lots of fun! 


For details on correct note usage, we suggest that you consult 
your BASIC Reference manual. 


FOR THE PROGRAMMER 
Note the way we produce the Menu at lines 4000-4320 


The IF=THEN statements used in lines 4220 and 4230 check to see 
if the ASCII value of HS is less than "1" or greater than "8". 
In other words, we are ensuring that the selected value is 
‘within the required range' and therefore prevents the program 
from ‘'crashing'. 


10 REM *WIZZARD MUSIC MACHINE* 

20 REM (WRITTEN BY WAYNE G. RICHMOND) 

30 REM (DECEMBER 1982) 

40 COLOR 0,16 

50 GOSUB 9000 

60 DIM P(60) 

70 DIM L(60) 

80 LS WEAK KHEKKKEKKEEKKKEKKEKKKKKEARKEEEN 
QS = CHRS$ (34) 

95 NS="UNKNOWN WORK" 

97 CS="ANON." 

1000 REM * INSTRUCTIONS* 

1020 PRINT LS 

1030 PRINT"* WIZZARD MUSIC MACHINE! *" 

1040 PRINT LS 

1050 PRINT 

1060 PRINT 

1070 PRINT"TO COMPOSE AND PERFORM YOUR" 

1080 PRINT 

1090 PRINT"OWN TUNES INPUT THE PITCH" 

1100 PRINT 

1110 PRINT"AND LENGTH OF EACH NOTE." 

1120 PRINT 

1130 PRINT 

1140 PRINT"N.B. REFER TO TABLES IN" 

1150 PRINT 

1160 PRINT" CHAPTER 13 OF THE BASIC" 

1170 PRINT 

1180 PRINT" MANUAL FOR VALUES." 
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PRINT 

PRINT 

GOBUB 9500 

GOSUB 9000 

GOTO 2000 

REM *INPUT PITCH & LENGTH VALUES* 

N = 0 

GOSUB 9000 

PRINT" INPUT A PITCH OF ";QS;"99";0S;" TO END" 
PRINT 

PRINT 

N= N+ 1 

IF N > 60 THEN 4000 

PRINTN;" -— PITCH (1-32) "; 
INPUT P(N) 

IF P(N) < 1 THEN 2110 

IF P(N) = 99 THEN 2300 

IF P(N) > 32 THEN 2110 
PRINTN;" -—- LENGTH (0-7) "; 
INPUT L(N) - 

IF L(N) > 7 THEN 2160 

PRINT 

GOTO 2100 

T=N-1 

GOTO 4000 

REM *MAIN MENU* 

GOSUB 9000 

PRINT LS 

PRINT"* WIZZARD MUSIC MACHINE! 
PRINT LS 

PRINT 

PRINT 

PRINT"1. PLAY TUNE" 

PRINT 

PRINT"2. PLAY & DISPLAY TUNE" 
PRINT 

PRINT"3. RE-WRITE SECTION OF TUNE" 





et" 





PRINT 

PRINT"4. ADD TO END OF TUNE" 
PRINT 

PRINT"5. CHANGE ONE NOTE" 
PRINT 

PRINT"6. CHANGE NAME AND COMPOSER" 
PRINT 

PRINT"7. PRINT TUNE ON PRINTER" 
PRINT 

PRINT"8. START NEW TUNE" 
PRINT 

PRINT 

PRINT 

PRINT"CHOICE (1-8) "; 

INPUT HS 

IF HS < "1" THEN 4000 

IF HS > "8" THEN 4000 

IF H$ = "1" THEN 5000 

IF H$ = "2" THEN 5500 

IF H$ = "3" THEN 6000 

IF H$ = "4" THEN 6100 
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4290 
4300 
4310 
4320 
5000 
5010 
5020 
5030 
5040 
5045 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5200 
5210 
5220 
5230 
5500 
5510 
5520 
5530 
5540 
5600 
5610 
5640 
5650 
5660 
5700 
5710 
5720 
5730 
5750 
5800 
5810 
5820 
5830 
5840 
5850 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6100 
6110 
6120 
6130 


IF HS = "5" THEN 6200 
IF HS = "6" THEN 6500 
IF HS = "7" THEN 6800 
IF HS = "8" THEN RUN 


REM *PLAY TUNE* 
GOSUB 9000 
PRINT" PRESENTING..." 
FOR N = 1 TO 5 

PRINT 
NEXT 
PRINTQS ; NS; QS 
PRINT 
PRINT 
PRINT" (BY "2CS;") 1 
PRINT 
PRINT 
PRINT 
FOR N = 1 TO 4 

PRINT 
NEXT 
FOR N = 1 TOT 

SOUND P(N) ;L(N) 
NEXT 
GOTO 4000 
REM *PLAY & DISPLAY TUNE* 
GOSUB 9000 
Y 1 
L 0 
N 0 
PRINT"NO.";TAB(10) ;"PITCH" >; TAB(21) ;"LENGTH" 
PRINT 
V=17+2L 
IF T < V THEN Z 
IF T > V THEN Z 
FOR X = Y TO Z 

N=N+4+1] 

PRINT N, P(N), L(N) 

SOUND P(N) ;L(N) 
NEXT 
GOSUB 9500 
IF N = T THEN 4000 
Y= ¥Y + 16 
L= L + 16 
PRINT 
GOTO 5600 
REM *RE-WRITE SECTION* 
GOSUB 9000 
PRINT"START WITH NOTE NO."; 
INPUT N 
Vz T+1 
IF N > V THEN 6010 
IF N < 1 THEN 6010 
GOSUB 9000 
GOTO 2110 
REM *ADD TO END OF TUNE* 
GOSUB 9000 
N= T 
GOTO 2100 


T 
16 + L 
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REM *CHANGE ONE NOTE* 

GOSUB 9000 

PRINT"NUMBER OF NOTE TO CHANGE" 
PRINT 

PRINT" (1-";T;") "we 

INPUT E 

IF E < 1 THEN 6210 

IF E > T THEN 6210 

GOSUB 9000 

PRINT"NO."; TAB(10) ;" PITCH"; TAB(21) ;"LENGTH" 
PRINT 

PRINT E,P(E) ,L(E) 

PRINT 

PRINT 

PRINT"NEW PITCH (1-32) "; 
INPUT P(E) 

IF P(E) < 1 THEN 6370 

IF P(E) > 32 THEN 6370 
PRINT 

PRINT"NEW LENGTH (0-7) "; 
INPUT L(E) 

IF L(E) < O THEN 6440 

IF L(E) > 7 THEN 6440 

PRINT 

PRINT 

GOSUB 9500 

GOTO 4000 

REM *CHANGE NAME & COMPOSER* 
GOSUB 9000 


-PRINT"CURRENT TUNE NAME" 


PRINT 

PRINTQS; NS ;QS 

PRINT 

PRINT 

PRINT 

PRINT"CURRENT COMPOSER" 
PRINT 

PRINTQS;CS;Q$ 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT"NEW TUNE NAME" 
PRINT 

INPUT NS 

IF LEN(NS) > 25 THEN 6612 
IF LEN(NS) > 26 THEN 6500 
PRINT 

PRINT 

PRINT"NEW COMPOSER" 

PRINT 

INPUT CS 

IF LEN(CS) > 20 THEN 6670 
IF CS = "" THEN CS = "ANON." 
GOTO 4000 
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REM *PRINT TUNE ON PRINTER* 
GOSUB 9000 

PRINT"PRINTING TUNE .. ." 
PRINT 

LPRINT"TUNE: ":NS 

LPRINT 

LPRINT 

LPRINT"COMPOSER: ";CS 
LPRINT 

LPRINT 


LPRINT"NO.";TAB(10) ;"PITCH" ; TAB(21) ;"LENGTH" 


LPRINT 
FOR N= 1 TOT 
LPRINT N,P(N) ,L(N) 
NEXT 
LPRINT 
LPRINT 
LPRINT 
GOTO 4000 
END 
REM *CHANGE CQLOURS* 
CLS 
FOR C = 5 TO 12 
COLOR C,2,16 
NEXT 
COLOR 6,7,16 
RETURN 
REM *MOVE JOYSTICK ROUTINE* 
PRINT 
PRINT LS 
PRINT"MOVE JOYSTICK TO CONTINUE" 
PRINT LS 
IF JOY(1) > 0 THEN RETURN 
IF JOY(2) > O THEN RETURN 
GOTO 9540 
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WHAT DA Y OF T HE WEE K IS IT ? 


This neat little program will calculate which day of the week it 
is (or will be) for virtually any date. Think of how easy it 
will be to work out whether your aunt's birthday is on a Friday 
or whatever. It will certainly aid in planning those all 
important days for you. 


FOR THE PROGRAMMER 


Note the string manipulation in lines 1230-1330 to extract the 
day, month and year from the INPUTed string DD/MM/YY using 
RIGHTS, LEFTS, MIDS, LEN and VAL. 


10 REM *WHAT DAY OF THE WEEK IS IT?* 
20 REM (WRITTEN BY WAYNE G. RICHMOND) 
30 REM (DECEMBER 1982) 
40 REM 
50 COLOR 0,15 
80 GOSUB 9000 
90 LS = WKEKKRKKKKKRKKRKKKKRRKEKRKRKRKRKKKREREN 
1000 REM *INPUT DATA* 
1010 GOSUB 9000 
1020 PRINT LS 
1030 PRINT"WHAT DAY OF THE WEEK IS IT??" 
1040 PRINT LS 
1050 PRINT 
1060 PRINT 
1070 PRINT" YOUR WIZZARD CAN TELL YOU" 
1080 PRINT 
1090 PRINT"WHAT DAY OF THE WEEK ANY" 
1100 PRINT 
1110 PRINT" PAST OR FUTURE DATE FALLS ON!" 
1120 PRINT 
1150 PRINT"WHAT IS THE DATE? (DD/MM/YY) " 
1160 PRINT 
1190 PRINT"E.G. 07/05/83 (7TH MAY 1983)" 
1200 PRINT 
1205 PRINT 
1210 INPUT TS 
1220 IF T$ = "" THEN 1000 
1230 IF LEN(TS) <> 8 THEN 1000 
Y = VAL(RIGHTS (TS ,2) ) 
1310 D = VAL(LEFTS (TS ,2) ) 
IF D > 31 THEN 1000 
1340 IF M > 12 THEN 1000 
1350 IF INT(Y/4) = Y/4 THEN 3000 
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REM *CALCULATE KEY NUMBER FOR NON LEAP YEARS* 
IF M = 1 THEN K = l 
IF M = 2 THEN K = 4 


GOTO 3040 

REM *CALCULATE KEY NUMBER FOR LEAP YEARS* 
IF M = 1 THEN K = 0 

IF M = 2 THEN K = 3 

IF M = 3 THEN K = 4 

IF M = 4 THEN K = 0O 

IF M = 5 THEN K = 2 

IF M = 6 THEN K = 5 

IF M = 7 THEN K = O 

IF M = 8 THEN K = 3 

IF M = 9 THEN K = 6 

IF M =10 THEN K = 1 

IF M =11 THEN K = 4 

IF M =12 THEN K = 6 

REM *CALCULATE DAY OF WEEK* 

B = INT(Y/4) 

X = Y+ Bt K + D 

S = INT(X/7) 

H = X —- (S * 7) 

IF H = O THEN DS = “SATURDAY" 
IF H = 1 THEN DS = "SUNDAY" 
IF H = 2 THEN DS = "MONDAY" 
IF H = 3 THEN DS = “TUESDAY" 
IF H = 4 THEN DS = "WEDNESDAY" 
IF H = 5 THEN DS = "THURSDAY" 
IF H = 6 THEN DS = "FRIDAY" 
PRINT 

PRINT TS;" IS ON A ":DS;"." 
PRINT 

PRINT 


PRINT" (MOVE JOYSTICK TO RE-RUN) " 
IF JOY(1) > O THEN RUN 
IF JOY(2) > O THEN RUN 
GOTO 4220 
8050 
IF JOY(2) > 0 THEN RETURN 
REM *COLOUR CHANGE ROUTINE* 
CLS 
FOR N = 1 TO 12 

COLOR N,2,15 
NEXT 
COLOR 6,7,15 
RETURN 


WI2Z22ARD CLOCK 


This is our adaptation of a digital clock for you. While we 
can't see it sitting next to you on the bedside table, it will 
provide a good 'time and conversation piece’. 


FOR THE PROGRAMMER 


Lines 1611-1613 are there to simply ‘use up time’ in order to 
make the clock run more accurately. You may wish to ‘fine tune' 
this routine and therefore increase the absolute accuracy of the 
clock. 


10 REM *WIZZARD CLOCK* 

20 REM (WRITTEN BY WAYNE G. RICHMOND) 
30 REM (DECEMBER 1982) 

40 CLS 

50 T= 2 

100 DATA 0,1,1,2,1,/1-/2,1,1,8 

110 DATA 9,32,32,5,32,32,5,32,32,10 
120 DATA 3,4,4,6,474,674,4,7 

130 DATA 87,73,90,90,65,82,68 

140 DATA 67,76,79,67,75 

150 GOTO 1000 

200 FOR Y = 6 TO 8 


210 FOR X = 12 TO 21 
220 READ N 

230 PLOT X,Y,N 

240 NEXT X 


250 NEXT Y 
260 FOR X = 3 TO 9 


270 READ N 

280 PLOT X,7,N 

290 NEXT 

300 FOR X = 24 TO 28 
310 READ N 

320 PLOT X,7,N 

330 NEXT 


400 RETURN 

1000 REM * INPUT CURRENT TIME* 

1002 GOSUB 9000 / 
1005 xs="" 

1010 PRINT LS 

1020 PRINT"’WI2Z22ARD ** CLOC K" 
1030 PRINT LS 

1040 PRINT 

1050 PRINT 

1060 PRINT"TO SET THE CLOCK," 

1070 PRINT 

1080 PRINT"TYPE IN THE FOLLOWING INFO" 
1090 PRINT 
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PRINT"AND PRESS ";QS;"RET'N":QS 
PRINT 

PRINT 

PRINT" ALLOW ABOUT 30 SECONDS TO" 
PRINT 

PRINT"TO SET UP." 

PRINT 

PRINT 

PRINT"HOUR (1-12) "; 

HS=" iT 

INPUT HS 

X$ = HS 

GOSUB 1800 

IF x$ = "" THEN 1000 

PRINT 

PRINT"MINUTES (0-59) "s 

MS =" w 

INPUT MS 

XS = MS 

PRINT 

GOSUB 1800 

IF xS = "" THEN 1000 

PRINT 

PRINT" (START CLOCK WITH JOYSTICK)" 
FOR N = 1 TO 100 

NEXT 

REM *CALCULATE BEGINNING TIMES* 
IF LEN(HS) < 2 THEN1400 

A = ASC(LEFTS(HS,1) ) 

B = ASC(RIGHTS (HS ,1) ) 


GOTO 1450 
A = 18 
B = ASC(HS) 


IF LEN(MS) < 2 THEN 1500 


C = ASC(LEFTS (MS ,1) ) 
D = ASC(RIGHTS (MS ,1) ) 
GOTO 1550 

C = 48 

D = ASC(MS) 

E = 48 

F = 48 

GOSUB 9200 

GOSUB 200 

GOSUB 8500 


IF JOY(1) > O THEN 2000 

IF JOY(2) > O THEN 2000 
GOTO 1580 

REM *UPDATE* 

FOR N = 1 TO W + Q 

NEXT 

X = (RND(100) + 1) * 1% 1 
GOTO 1613 

GOTO 1620 

GOSUB 8530 

GOTO 2000 

REM *CHECK FOR INVALID DATA* 
Z$=" " 

IF x$ = "" THEN 1900 
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1830 FOR N = 1 TO LEN(XS) 

1840 IF ASC(MIDS(XS,N,1)) > 57 THEN ZS="0" 
1850 NEXT 

1860 IF ZS=""THEN RETURN 

1870 PRINT 

1880 PRINT 

1890 PRINT"TYPE IN NUMBERS ONLY!!" 
1893 FOR N = 1 TO 400 

1895 NEXT 

1900 xs = "" 

1910 RETURN 

2000 REM *ADJUST SECONDS (UNITS) * 
2010 F=F+H+l1 

2020 IF F > 57 THEN 3010 

2025 W= T * 6 

2030 GOTO 1600 

3000 REM *ADJUST SECONDS (TENS) * 
3010 F = 48 

3020 E= E+1 

3030 IF E > 53 THEN 4010 

3035 W=T 

3040 GOTO 1600 

4000 REM *ADJUST MINUTES (UNITS) * 
4010 E = 48 

4020 D= D+#+41 

4030 IF D> 57 THEN 5010 

4035 W= T 

4040 GOTO 1600 

5000 REM *ADJUST MINUTES (TENS) * 
5010 D = 48 

5020 C=C+#+k1 

5030 IF C > 53 THEN 6010 

5035 W= T 

5040 GOTO 1600 

6000 REM *ADJUST HOURS (UNITS) * 
6010 C = 48 

6020 IF A = 49 THEN 6100 

6030 B= B+1 

6040 IF B > 57 THEN 7010 

6045 W= T 

6050 GOTO 1600 

6100 B= B+ 1 

6110 IF B > 50 THEN 8010 

6115 W= T 

6120 GOTO 1600 

7000 REM :ADJUST HOURS (TENS) * 


7010 B= 48 
7020 A = 49 
7025 W= T 


7030 GOTO 1600 
8000 REM *RESET DIGITS* 


8010 A = 18 
8020 B= 49 
8030 C = 48 
8040 D = 48 
8050 E = 48 
8060 F = 48 
8065 W= T 


8070 GOTO 1600 

8499 GOTO8499 

8500 REM *DISPLAY TIME* 

8530 PLOT 13,7,A 

8540 PLOT 14,7,B 

8550 PLOT 16,7,C 

8560 PLOT 17,7,D 

8570 PLOT 19,7,E 

8580 PLOT 20,7,F 

8590 RETURN 

8999 END 

9000 REM *COLOR CHANGE ROUTINE* 

9005 R= 2 

9010 CLS 

9015 K=16 

9018 COLOR 0,K 

9020 FOR N = 7 TO 12 

9030 COLOR N,2,K 

9040 NEXT 

9050 COLOR 6,7,K 

9100 LESNAR RRARK AREER RE ARR K RR RR REM 
9110 QS=CHRS (34) 

9120 GOTO 9300 

9200 CLS 

9205 COLOR 0,R 

9210 FOR N = 9 TO 12 

9220 COLOR N,16,R 

9230 NEXT 
9235 H = 12 
9240 COLOR 
9250 COLOR 
9255 V= 5 
9260 COLOR 1,V,H 

9270 COLOR 2,V,H 

9275 COLOR 3,H,2 

9280 RETURN 

9300 REM *ESTABLISH CHARACTERS* 
9350 CHAR 0,FFFFFFFFFOFOFOFO 
9360 CHAR 1,FFFFFFFF 

9370 CHAR 2,FFFFFFFF18181818 
9380 CHAR 3,FOFOFOFOFFFFFFFF 
9390 CHAR 4,00000000FFFFFFFF 
9400 CHAR 5,1818181818181818 
9410 CHAR 6,18181818FFFFFFFF 
9420 CHAR 7,0FOFOFOFFFFFFFFF 
9430 CHAR 8,FFFFFFFFOFOFOFOF 
9440 CHAR 9,FOFOFOFOFOFOFOFO 
9450 CHAR 10,0FOFOFOFOFOFOFOF 
9460 CHAR 18,FFFFFFFFFFFFFFFF 
9500 RETURN 


COMPUTER STORY 


With this program you will be able to '‘write' your very own 
story. All you have to do is provide details such as the name of 
the male character, where he lives etc. You can have a great 
deal of fun with this program! Wait until your friends see what 
you have written about them! This program can even print a copy 
of your masterpiece on paper for you (if you have a printer). 
For all you budding authors, this is the program for you!. 


FOR THE PROGRAMMER 


Here is another example of a simple program that you can easily 
‘tailor’ to suit your own requirements. 


We have used MIDS in lines 3050-3130 to insert spaces into the 
names for the title of the print-out. The semi-colon in lines 
3200-3360 is used to suppress line feeds in the 'LPRINT' and 
achieve longer lines on the print-out than the Wizzard displays 
to the T.V. screen. : 


The routine at line 9000 checks to see if "A" or "AN" is needed. 


10 REM * COMPUTER STORY * 

110 COLOR 0,15 

120 GOSUB 7000 

1000 REM *INPUT NAMES* 

1020 PRINT RRKRKEKKEKKKKKEKRKK KKK RAKE 


1030 PRINT"C OMPUTER STOR yY" 
1040 PRINTNKARKEKKKKKKEKKK KKK KKK REN 
1050 PRINT 

1055 PRINT 

1057 PRINT 

1060 PRINT" IN THIS PROGRAM YOUR WIZZARD" 
1070 PRINT 

1080 PRINT"HELPS YOU TO WRITE YOUR VERY" 
1090 PRINT 

1100 PRINT"OWN STORY. ALL YOU DO IS ADD" 
1110 PRINT 

1120 PRINT"THE DETAILS! !" 

1130 PRINT 

1150 PRINT 

1160 PRINT"TYPE YOUR ANSWERS TO THE" 
1170 PRINT 

1180 PRINT"FOLLOWING QUESTIONS & PRESS" 
1190 PRINT 

1200 PRINT"THE ";CHRS (34) ;"RET'N";CHRS (34) ; 
1210 PRINT" KEY." 

1220 PRINT 

1230 PRINT 

1300 PRINT"MALE CHARACTER"; 


1310 
1315 
1320 
1330 
1340 
1350 
1360 
1365 
1370 
1380 
1390 
1400 
1410 
1415 
1420 
1430 
1440 
1450 
1460 
1465 
1470 
1480 
1490 
1500 
1510 
1515 
1520 
1530 
1540 
1550 


INPUT MS 

PRINT 

IF LEN(MS) < 10 THEN 1350 
GOSUB 5000 

GOTO 1300 

PRINT"FEMALE CHARACTER"; 
INPUT WS 

PRINT 

IF LEN (WS) < 10 THEN 1400 
GOSUB 5000 

GOTO 1350 

PRINT" PASSER-BY"; 

INPUT PS 

PRINT 

IF LEN(PS$) < 10 THEN 1450 
GOSUB 5000 

GOTO 1400 

PRINT" SUBURB" ; 

INPUT S$ 

PRINT 

IF LEN(S$) < 13 THEN 1500 
GOSUB 5000 

GOTO 1450 

PRINT"TYPE OF FOOD"; 
INPUT FS 

PRINT 

IF LEN(FS) < 10 THEN 1550 
GOSUB 5000 

GOTO 1500 

PRINT"TYPE OF DRINK"; 
INPUT DS 

PRINT 

IF LEN(DS) < 10 THEN 1600 
GOSUB 5000 

GOTO 1550 

PRINT"HORRIBLE INSECT"; 
INPUT I$ 

PRINT 

IF LEN(I$) < 10 THEN 1650 
GOSUB 5000 

GOTO 1600 

PRINT"LARGE ANIMAL"; 
INPUT AS 

PRINT 

IF LEN(AS) < 9 THEN 1700 
GOSUB 5000 

GOTO 1650 

PRINT"PART OF BODY"; 
INPUT BS 

REM *STORY (SCREEN) * 
GOSUB 7000 

GOSUB 9000 

PRINT RR KK HKKKKKAKKKEKKEKKEKEKEKEKEKKEKEKN 
PRINT'THE AMAZING ADVENTURES OF" 
PRINT 

PRI nr" "eMS : " AND w -ws;" | wu 
PRINT KEKE KKRKKKKKKKKKKKKKKEKKEKREKKEEEN 


PRINT 


PRINT 
PRINT 

PRINT"  ";MS;" LIVED IN A" 

PRINT 

PRINT"LITTLE SHACK IN ";SS 

PRINT 

PRINT"WITH HIS FRIEND ";WS;"." 
PRINT 

PRINT"ONE DAY ";MS;"_ & ";WS 

PRINT 

PRINT"WENT OUT FOR DINNER." 

GOSUB 6000 

GOSUB 7000 

PRINTMS;" ORDERED A LARGE" 

PRINT 

PRINT"JUG OF ";DS;"_& ";WS 

PRINT 

PRINT"ASKED FOR LOTS OF ";FS;"." 
PRINT 

PRINT"WHEN THE FOOD ARRIVED" 

PRINT 

PRINTWS;" FOUND A "sIS$ 

PRINT 

PRINT"SITTING IN THE MIDDLE OF HER" 
PRINT 

PRINT"PLATE SMILING OH SO SWEETLY!" 
GOSUB 6000 


GOSUB 7000 
PRINT" WHEN ";MS;" STARTED TO" 
PRINT 


PRINT"LAUGH, ";WS;" PICKED UP" 
PRINT 

PRINT"THE PLATE & THREW IT AT HIM." 
PRINT 

PRINTMS;" DUCKED AND THE" 

PRINT 

PRINTFS;", ":IS;" & ALL," 

PRINT 

PRINT"HIT ";PS;" SQUARE IN THE" 
PRINT 

PRINT BS;"!!" 

GOSUB 6000 

PRINT 

GOSUB 7000 

PRINT 

PRINT PS;" PICKED UP ";NS 

PRINT 

PRINTAS;" THAT HAPPENED TO BE" 
PRINT 

PRINT" PASSING BY AND THREW IT AT" 
PRINT 

PRINT WS;" AND ";MS;" As" 

PRINT 

PRINT" THEY RAN OUT OF THE DOOR!!" 
PRINT 

PRINT" KRAKKKAKKKKKKKKKKKKKKKKKKEKKEKN 
PRINT 

PRINT 
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PRINT 
PRINT 
PRINT 
PRINT 


PRINT"DO YOU WANT YOUR WIZZARD" 


PRINT 
PRINT"COMPUTER STORY 
PRINT 


PRINTED OUT" 


PRINT"ON YOUR PRINTER (Y/N) "; 


INPUT XS$ 

IF LEFTS(X$,1) = "yY" 
GOSUB 7000 
PRINT"MOVE THE" 
PRINT 


THEN 3000 


PRINT"L.H. JOYSTICK TO READ AGAIN" 


PRINT 


PRINT"R.H. JOYSTICK FOR NEW STORY" 
IF JOY(1) > 0 THEN 2000 
IF JOY(2) > 0 THEN RUN 


GOTO 2600 


PRINT" LEFT JOYSTICK TO READ AGAIN" 


PRINT 
PRINT" RIGHT JOYSTICK 


FOR NEW STORY" 


IF JOY(1) > O THEN 2000 
IF JOY(2) > O THEN RUN 


GOTO 2660 


REM *STORY FOR PRINTER* 


LPRINT 

LPRINT 

LPRINT 

GOSUB 8500 

LPRINT"T H E I N 
LPRINT"Z I NG A 
LPRINT" 

FOR N = 1 TO LEN(MS) 


CREDIBLY AMA"; 
DVENTURES O F" 
, 


LPRINT MIDS (MS,N,1); 


LPRINT" "; 
NEXT e 
LPRINT" AN D 
FOR N = 1 TO LEN(WS) 


LPRINT MIDS(WS,N,1) ; 


LPRINT" "; 
NEXT 
LPRINT" " 
GOSUB 8500 
LPRINT 
LPRINT 
LPRINT 
LPRINT 


LPRINT" ".sMS;:" LIVED LN A LITTLE SHACK IN ":SS$; 
LPRINT" WITH HIS FRIEND ";WS;"." 
LPRINT"ONE DAY ";MS;" AND ";WS;" WENT OUT FOR "; 


LPRINT"DINNER. ";MS; 


LPRINT"JUG OF ";DS;" 


" ORDERED A LARGE" 
AND ";WS;" ASKED FOR LOTS OF "; 


LPRINT FS;". WHEN THE FOOD ARRIVED" 

LPRINTWS;" FOUND A ";1S;" SITTING IN THE MIDDLE OF"; 
LPRINT" HER PLATE SMILING OH SO" 

LPRINT"SWEETLY! WHEN ";MS;" STARTED TO LAUGH, "; 


LPRINT WS;" 


LPRINT’ THREW IT AT HIM. 
LPRINT", 


"el 


LPRINT PS;" 
LPRINT"UP ";NS;" 
LPRINT"HAPPENED TO BE PASSING BY AND THREW IT AT "; 
AND ";MS;" AS THEY RAN OUT" 


LPRINT W 
LPRINT"OF THE DOOR! !" 


LPRINT 
LPRINT 
LPRINT 
LPRINT 


ett 
’ 


GOSUB 8500 
LPRINTCHRS (12) ; 
GOTO 2550 
GOTO 4999 
REM *TOO LONG ROUTINE* 


PRINT 


PICKED UP THE PLATE AND" 
DUCKED AND THE ";FS; 


"ems >" 


S;" AND ALL, HIT" 


SQUARE IN THE ";BS;"!! 


we ; AS 7" THAT" 


PRINT"NAME TOO LONG!" 


PRINT 


PRINT"TRY AGAIN . 


PRINT 
PRINT 
RETURN 


REM *PAUSE ROUTINE* 


PRINT 
PRINT 
PRINT 


"eps;" 


PRINT"<PRESS JOYSTICK TO CONTINUE>" 


IF JOY(1) 
IF JOY (2) 


GOTO 6010 
REM *SET COLOURS* 


CLS 
FOR N 


5 TO 


12 


COLOR N,2,15 


NEXT 


COLOR 6,7,15 
COLOR 8,5,15 


RETURN 


> O THEN RETURN 
> O THEN RETURN 


REM *MOVE PRINTING UP SCREEN* 


FOR N 
NEXT 
RETURN 


1 TO 


10 


REM *LINE OF * FOR PRINTER* 
LPRINT# RR RRR KKK RK RK KEE REE KKK KKK RR RR RM, 
, 


LPRINT™ RAK KKK KKK KKEKKKKEKEK KKK EKEKEEKEEKKKEEKKKEKEKN 


RETURN 

REM * wat" OR "AN" 
NS = wat" 
X$=LEFTS (AS ,1) 

IF X$ = "A" THEN 
IF X$ = "E" THEN 
IF x$ = "I" THEN 
IF x$ = "O" THEN 
IF x$ = "U" THEN 
RETURN 


ROUTINE* 
NS = VAN" 
NS = "AN" 
NS = VAN" 
NS = wAN" 
NS = " AN" 


PICKED "; 


WI2Z2z2aAROD WORD 


In this program you need a friend (don't we all!) to give 
Wizzard a word. He will then cleverly jumble up the word in 
different ways until you get it right! Make sure the word is 
not too long as it can become next to impossible to sort out. 
This game will provide lots of fun and quite possibly a fair 


dose of frustration! 


FOR THE PROGRAMMER 


The trickiest part of this program is the section which 
establishes a random order for the letters, in lines 600-830. 
Examine this routine closely. 


10 REM *WIZZARD WORD* 

20 REM (WRITTEN BY WAYNE G. RICHMOND) 
30 REM (DECEMBER 1982) 

40 REM 

50 DIM R(12) 

60 COLOR 0,16 

70 IF RND(1) < 1 THEN I = 1 
80 GOTO 6000 

100 REM *INPUT WORD* 

110 GOSUB 9000 

115 WS = ess 

120 PRINT"TYPE IN THE WORD" 
130 PRINT 

140 PRINT 

150 PRINT"MAKE SURE THE PLAYER ISN'T" 
160 PRINT 

170 PRINT"WATCHING!!" 

180 PRINT 

190 PRINT 

195 PRINT 

200 PRINT 

205 PRINT 

210 INPUT WS 

220 IF WS = "" THEN 100 

230 IF LEN(WS) < 11 THEN 600 
240 PRINT 

250 PRINT 

260 PRINT"TOO LONG! !" 

270 FOR N = 1 TO 100 

280 NEXT 

290 GOTO 100 

600 REM *RANDOM ORDER SELECTION* 
605 GOSUB 9000 

607 PRINT'THINKING .. ." 
610 L = LEN(WS) 

615 FORN=1 TOL 

618 R(N) = 0 

619 NEXT 


620 FOR N = 1 TO L 


630 R = RND(L) + I 

640 F= 0 

650 FOR X = 1 TON 

660 IF R = R(X) THEN F = 99 
670 NEXT X 

680 IF F = 99 THEN 630 

690 R(N) = R 

700 NEXT N 

750 F = 0 

800 FOR N= 1 TOL 

810 IF R(N) <> N THEN F = 99 
820 NEXT 


830 IF F = 0 THEN 615 

1000 REM *PRINT JUMBLED WORD* 
1010 GOSUB 7000 

1060 FOR N = 1 TO 14 

1070 PRINT 

1080 NEXT 

1100 PRINT"WHAT IS THE WORD"; 
1200 X = 10 

1210 FOR N= 1 TOL 

1220 Z = ASC(MIDS(WS,R(N) ,1)) 
1230 PLOT X,14,2 

1240 X = X + 2 

1250 NEXT N 

2000 REM *INPUT ANSWER: 


2010 AS = “" 

2020 INPUT AS 

2030 IF AS = WS THEN 5000 
2035 IF AS = "" THEN 2500 


2040 SOUND 1;5,13;5,93;7,6;5 
2045 GOSUB 9000 

2050 PRINT" WRONG! !" 

2060 FOR N = 1 TO 10 

2070 PRINT 

2080 NEXT 

2100 GOTO 610 

2500 SOUND 2;7,5;7,9;7 
2510 GOSUB 4000 

2520 GOTO 8000 

4000 REM *PLOT SOLUTION* 
4020 X = 10 

4030 FOR N= 1 TOL 

4040 Z = ASC(MIDS (WS ,N,1) ) 
4050 PLOT X,16,2 

4060 X = X + 2 

4070 NEXT N 

4080 RETURN 

5000 REM *CORRECT ROUTINE* 
5040 GOSUB 4000 

5050 SOUND 26;3 

5060 SOUND 21;2 

5070 SOUND 21;0 

5080 SOUND 23;3 

5090 SOUND 21;3 

5100 SOUND 1;3 

5110 SOUND 9;3,19;3,25;3 


- 57 - 


8020 
8030 
8040 
8050 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 


SOUND 2;3,18;3,26;3 

GOTO 8000 

REM *INSTRUCTIONS* 

GOSUB 7000 

PRINT 

PRINT 

PRINT" YOU GIVE ME A WORD & I WILL" 
PRINT 

PRINT" VERY CLEVERLY JUMBLE IT UP" 
PRINT 

PRINT"FOR SOMEONE TO TRY TO GUESS." 
PRINT 

PRINT" I WILL KEEP PRESENTING THE" 
PRINT 

PRINT"WORD IN DIFFERENT WAYS UNTIL" 
PRINT 

PRINT"THEY GET IT RIGHT!" 


PRINT"TO GIVE UP, PRESS <<RET'N>>" 
PRINT" ---------- ~~~ ~~ ee ee ee ee " 


PRINT 

PRINT" <<MOVE JOYSTICK TO BEGIN>>" 

GOTO 8030 

REM *HEADING* 

GOSUB 9000 

PRINT LS 

PRINT"* WI Z2ZARD WORD *" 
PRINT LS 

RETURN 

REM *MOVE JOYSTICK ROUTINE* 

PRINT 
PRINT 
PRINT 
PRINT"<MOVE JOYSTICK FOR NEW WORD>" 
IF JOY(1) > O THEN 100 

IF JOY(2) > O THEN 100 


GOTO 8030 

REM *SET UP COLOURS ETC* 

CLS 

LS = NR Ra TOR RR REN 


FOR N = 7 TO 12 
COLOR N,2,16 

NEXT 

COLOR 6,7,16 

RETURN 
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WI2Z2@#aaARD MAGIC PATTERNS 


Wizzard shows us ‘his' artistic side in this colourful display. 
Random colour graphics are displayed to your T.V. screen. This 
program is sure to impress your mother! 


FOR THE PROGRAMMER 


Note here that while the program itself is relatively small, 
the use of the GOSUB statements in lines 110-150 establish the 
continuity of change in both the-characters and colours. 


10 REM *WIZZARD MAGIC PATTERNS* 
20 REM (WRITTEN BY WAYNE G. RICHMOND) 
30 REM (DECEMBER 1982). 

40 IF RND(1) < 1 THEN I = 1 
100 CLS 

105 COLOR 0,2 

110 GOSUB 1000 

120 GOSUB 2000 

130 GOSUB 1190 

140 GOSUB 4000 

150 GOSUB 2000 

160 GOTO 150 

1000 REM *ESTABLISH CHARACTERS* 
1100 FOR N = 0 TO 248 STEP 8 
1110 CHAR N,FFOOFFOOFFOOFFOO 
1120 CHAR N+] ,AAAAAAAAAAAAAAAA 
1130 CHAR N+2,AA55AA55AA55AA55 
1140 CHAR N+3,FF818199998181FF 
1150 CHAR N+4,8142241818244281 
1160 CHAR N+5,81667E3C3C7E6681 
1170 CHAR N+6,3C7EFFFFFFFF7E3C 
1180 CHAR N+7,FFFEFCF8FOE0CO080 
1185 NEXT 

1190 CHAR 32,FFFFFFFFFFFFFFFF 
1200 COLOR 5,2,2 

1210 COLOR 0,2 

1220 RETURN 

2000 REM *RANDOM COLOR CHANGE* 
2100 FOR N = 1 TO 32 

2110 C = RND(16) + I 

2120 B = RND(16) + I 

2130 COLOR N,C,B 

2140 NEXT 

2150 RETURN 

4000 REM *PLOT CHARACTERS* 

4100 FOR Y = 2 TO 23 

4110 FOR X = 3 TO 30 

4120 K = RND(256) + I - 1 
4130 PLOT X,Y,K 

4140 NEXT X 

4150 NEXT Y 

5200 RETURN 
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SPACE STYLE CHARACTER SET 


This program gives the Wizzard an entirely new character set. 
All of the letters are given an exciting "space' style. You can 
use this character set in your own programs by simply adding 
this program. 


10 REM *SPACE STYLE CHARACTER SET* 
20 REM (WRITTEN BY WAYNE G. RICHMOND) 
30 REM(DECEMBER 1982) 

40 REM 

80 GOSUB 9000 

100 CHAR 65,003C247E6 26262 
110 CHAR 66,007C447E62627E 
120 CHAR 67,007E426062627E 
130 CHAR 68,007E426262627E 
140 CHAR 69,007C407860607C 
150 CHAR 70,007C4078606060 
160 CHAR 71,007E426066627E 
170 CHAR 72,0042427E626262 
180 CHAR 73,00101018181818 
190 CHAR 74,0004040646467E 
200 CHAR 75,0044447E626262 
210 CHAR 76,0020203030303C 
220 CHAR 77,007E4A6A6A6A6A 
230 CHAR 78,007E4262626262 
240 CHAR 79,007E464242427E 
250 CHAR 80,007C44447C6060 
260 CHAR 81,007E42425E5E7E 
270 CHAR 82,007C447E424242 
280 CHAR 83,007E407E06467E 
290 CHAR 84,007C1010181818 
300 CHAR 85,0042426262627E 
310 CHAR 86,0062626266243C 
320 CHAR 87,004A4A6A6A6A7E 
330 CHAR 88,0042423C3C6262 
340 CHAR 89,0042427E181818 
350 CHAR 90,007E027E40427E 
360 CHAR 48,007E424646467E 
370 CHAR 49,00080818181818 
380 CHAR 50,007E42027E407E 
390 CHAR 51,007C441E06467E 
400 CHAR 52,001C34647E0COC 
410 CHAR 53,007E407E06467E 
430 CHAR 55,007C04040C0COC 
440 CHAR 56,003C247E46467E 
450 CHAR 57,007E42427E0606 
8999 END 

9000 REM *COLOR CHANGE ROUTINE* 
9005 CLS 

9010 COLOR 0,15 

9020 FOR N = 5 TO 12 

9030 COLOR N,2,15 

9040 NEXT 

9050 COLOR 6,7,15 

9060 RETURN 
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GRAPHICS EXAMPLE PROGRAM 


This is a short program especially designed to illustrate the implementation of 
Wizzard's graphics. Let's say we want the Wizzard to draw a small goldfish on the 
screen such as that used in ROWE'S RELAXATION THERAPY. 


We begin by drawing our fish on part of a SCREEN GRID. 
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To actually produce our 'fish', we need to take each square of 
the fish one at a time and establish a graphics character for it 
on a CHARACTER GRID (refer pages 96-98 of the Basic Reference 
Manual). 
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We now need to give each of these characters an ASCII code number. This can be 
anything from 0 to 255. However it is best to avoid codes 32-90 which are already in 
use (see page 135 of the Basic Reference Manual). Before allotting code numbers we 
to consider that our control over colours is by sets of 8 ASCII codes and that if we 
wish to have different colours for two characters they should not belong to the same 
set. (See page 95 of the Basic Reference Manual) I have given the characters making up 
the tail code numbers from a different character set so that I can make the tail a 
different colour. The tail (character codes 104 & 105) belongs to 
Character Set 14 while the rest of the body belongs to Character Set 13 
(codes 96-101). 


We are now ready to start typing in our program. First let's establish our 
characters: 


1000 REM *ESTABLISH CHARACTERS* 
1010 CHAR 96,010F193E7F73F3BF 
1020 CHAR 97,EQFCFFFFFEFFFFFF 
1030 CHAR 98,000103C3F/7FFFCFF 
1040 CHAR 99,FFFF7B/770F1FOF 
1050 CHAR 100,FFFFFFFFFEF83CO07 
1060 CHAR 101,FCFEFBC90504081 
1070 CHAR 104,70F8C48010387CFE 
1080 CHAR 105,0E030180C0201 


Next we set the colours. Let's make the background a nice watery blue (CYAN): 


2000 REM *SET COLOURS* 
2010 COLOR 0,8 


Now let's set the body (Character Set 13) of the fish to DARK RED (7): 
2020 COLOR 13,7,8 

Let's make the tail (Character Set 14) light yellow (12): 
2030 COLOR 14,12,8 


The last step is to PLOT our fish on the screen. One way of doing this is to put 
the sequence of characters into a DATA statement and then READ and PLOT them one at a 
time. Let's plot our fish fram left to right, top to bottom. In this case the sequence 
of characters is 96,97,98,104,99,100,101,105. Let's put this sequence into a DATA 
statement near the beginning of our program: 


100 DATA 96,97,98,104,99,100,101,105 


Now, using a nested FOR/NEXT loop we can READ and PLOT this data onto the screen. 
Let's say we wish our fish to be roughly in the middle of the screen. That is, from 
Y=12 to y=13 and from X=15 to xX=18. (Refer to your SCREEN GRID) : 


3000 REM *READ AND PLOT CHARACTERS* 
3010 FOR Y = 12 TO 13 
3020 FOR X = 15 TO 18 


3030 READ C 
3040 PLOT X,Y,C 
3050 NEXT X 

3060 NEXT Y 


Well, there we have our fish! We can place it at other positions on the screen 
simply by changing the X and y ranges in lines 3010 and 3020. If we want more than one 
{ish then we can READ the characters in the DATA statement again by using the RESTORE 
Htatement. Here is the complete GRAPHICS EXAMPLE PROGRAM: 
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HERE IS THE COMPLETE GRAPHICS SAMPLE PROGRAM 


10 
20 
30 
40 
100 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
2000 
2010 
2020 
2030 
3000 
3010 
3020 
3030 
3040 
3050 
3060 


REM *GRAPHICS EXAMPLE PROGRAM* 
REM (WRITTEN BY WAYNE G. RICHMOND) 
REM (JANUARY 1983) 
CLS 
DATA 96,97,98,104,99,100,101,105 
REM *ESTABLISH CHARACTERS* 
CHAR 96,010F193E7F73F3BF 
CHAR 97,EOFCFFFFFFFFFFFF 
CHAR 98,000103C3F7FFFCFF 
CHAR 99,FFFEF7B770F1F0OF 
CHAR 100,FFFFFFFFFEF83C07 
CHAR 101,FCFEFBC90504081 
CHAR 104,70F8C48010387CFE 
CHAR 105,0E030180C0201 
REM *SET COLOURS* 
COLOR 0.,8 
COLOR 13,7,8 
COLOR 14,12,8 
REM *PLOT CHARACTER ON SCREEN* 
FOR Y = 12 TO 13 

FOR X = 15 TO 18 

READ C 
PLOT X,Y rc 

NEXT X 

NEXT Y 
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WIZZARD CHARACTER GRID 
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Planet Defender Y-1650.Unbelievable 
realism; incredible action. Only the best 
survive. They'll be trying to get you from 
every angle possible-and a few impossible! 





Air-Sea Attack Y-1660 Get a load of the 
incredible graphics! And that’s only the 
start.... if you like action and nlenty of it, put 
yourself in the commanders seat of this 
one! 
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Astro Pinball Y-1685 The be all and end all 
vo) M1 (-1ea Ucolal (om elialer-] 1mm Dlolam a 7-1-3 cc calokt-'4 01 
anymore, you can play with this one for free. 





Free! a free Sonic Invaders cartridge 
supplied with every Wizzard! Now with 
added features, more exciting to play. 
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Police Jump Y-1622 Rescue the damsel 
from Dirty Dan. You must climb up to the top 
roy care ollie liarem ehmcrerclacellellare Mu dallicmelale (-1ceLeh 
objects are being thrown at you. Tretcherous 





tornadoes are everywhere as well! 
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Auto-Chase Y-1630 The old time car chases 
take on a new meaning when you're in the 
driver's seat! And there are extra hazards at 
every turn. Watch it! 





Tennis Y-1620 With real 3D figures. All the 
fun and excitement of the Grand-Slam 
tournaments-with real tennis scores, rules 
etc. 





BASIC Y-1605 The Wizzard is a computer 
as well. Just plug in the computer cartridge 
and you're ready to start programming tn 
‘BASIC’ language. 69% 





Tank Attack Y-1610 You're a tank command- 
er locked in deadly battle. You've really got 
to have your wits about you to play this one! 


Mouse Puzzle y-1680 A fantastic new idea 
game. You are controlling a mouse that is 
being chased by a cat through a pipe 
system. Can you escape? A _ Totally 
addictive game. 





Crazy Chicken Y-1640 As a chicken you 
must lay eggs at strategic points, but watch 
out for the foxes! 


NOW AVAILABLE AT YOUR NEAREST 
DICK SMITH ELECTRONICS STORE 
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